Help for this page

Select Code to Download


  1. or download this
    `last.pl $source`;

#in last.pl

my $source = $ARGV[0];
  2. or download this
    $ENV{SOURCE} = $source;
`last.pl`;
#in last.pl
my $source = $ENV{SOURCE};
  3. or download this
    open(LAST, "|last.pl") or die $!;
print LAST "$source";
...

#in last.pl
$source = <STDIN>;