Leser: 1
|< 1 2 >| | 20 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl
use strict;
use CGI;
my $q = CGI->new();
my $filename = $q->param('upload');
print "Content-Type: text/html\n\n";
print qq~
<html>
<head></head>
<body>
[$filename]
<form action="upload.pl" method="POST" enctype="multipart/form-data">
<input type="file" name="upload" />
<input type="submit" />
</form>
</body>
</html>
~;
|< 1 2 >| | 20 Einträge, 2 Seiten |