20 lines
352 B
Perl
Executable file
20 lines
352 B
Perl
Executable file
---
|
|
permalink: /cgi/perl/index.pl
|
|
---
|
|
|
|
use warnings;
|
|
use strict;
|
|
use POSIX qw(strftime);
|
|
|
|
my $date = strftime "%m/%d/%Y", localtime;
|
|
|
|
print("Content-type: text/plain\n\n");
|
|
print "Hello from Perl!\n\n";
|
|
print $date;
|
|
print "\n\n";
|
|
|
|
print('my @i = (1..10); for(@i) { print("$_", "\n"); }');
|
|
print("\n");
|
|
|
|
my @i = (1..10); for(@i) { print("$_", "\n"); }
|
|
|