Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
print $q->start_html();
print $q->img({src => 'image.gif'});
print $q->end_html();
  2. or download this
    #!/usr/bin/perl

...
local $\ = undef;
print <$F>;
close($F);
  3. or download this
    #!/usr/bin/perl

...
print $q->start_html();
print $q->img({src => 'img.pl'});
print $q->end_html();