Leser: 3
|< 1 2 3 >| | 23 Einträge, 3 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 -w
use strict;
use gettst;
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
print <<AAA;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
AAA
gettst ();
print <<BBB;
</head>
<body>
<form action="http://www.foo.com/cgi-bin/form.pl" method="post">
<input name="senden" value="Senden" type="submit">
</form>
</body>
</html>
BBB
1 2 3 4 5 6 7 8 9 10 11
package gettst; use base qw(Exporter); our @EXPORT = qw(gettst); sub gettest{ #... } 1;
|< 1 2 3 >| | 23 Einträge, 3 Seiten |