Bonjour a tous!

Je suis en train d'essayer d'enregistrer un fichier sur un serveur distant.
Pour le moment, j'arrive a afficher ce que contient un fichier lorsque c'est un .txt.

Voila le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
#!/usr/local/bin/perl -w 
 
use strict; 
use CGI; 
use DBI; 
use FORM; 
no warnings 'uninitialized'; 
 
 
my $q = new CGI; 
my $login = $q->param("login"); 
my $pass = $q->param("pass"); 
my $schema = GREGOR_Serre->getSchema(); 
my $submit = $q->param("btn_submit");
 
print $q->header(); 
print FORM->getHeader("Worksheet"); 
 
if ( $login , $pass) 
{
  print "\n<body><center>\n"; 
 
  print "Content-type: text/html\n\n";
 
  print FORM->getHeader("Stock"), "\n<body>";
  print "<center>\n";
 
  print $q->p($q->h1("Stock")),$q->br();
 
  #Liste des variables recuperees
  my @lst_params = $q->param; 
  foreach my $param (@lst_params) 
  { 
    my $val = $q->param($param); 
    print "$param : $val<br>"; 
  } 
 
  print "<form name='stock' action='test.cgi' method='post' enctype='multipart/form-data'>";
 
  # vérif du login/pass
  if ( $login ne ''  && $pass ne '')
  {
    print $q->hidden(-name=>"login", -value=>$login); 
    print $q->hidden(-name=>"pass", -value=>$pass);
 
   $submit = $q->param('submit');
 
    if ($submit ne  "Validate")
    {
    print "&nbsp;Scan: &nbsp;&nbsp;
    print $q->filefield(-name=>'photo',-size=>40,-maxlength=>80);
    print "<br>";
    print $q->submit(-name=>"submit", -value=>'Validate');
 
    print "</form>";
    }
    else
    {
      no strict;
 
      my $fh = $q->upload('photo');
      while (<$fh>)
      {
	chomp;
	print;
      }
 
      print "</html>";
    }
  }
j'ai suivi ce qu'il y avait la : http://perl.enstimac.fr/ModulesFr/CGI.html#création%20d'un%20champ%20de%20téléchargement%20de%20fichier%20(file%20upload)

Mais apres, je ne sais pas comment faire...
Je veux pouvoir copier des images, donc du gif ou du jpg par exemple.

Est ce que quelqu un peut m'aider?

Merci a vous!
Linou