Help for this page

Select Code to Download


  1. or download this
    $foo = `dir C:\bar\`; 
unless ($foo ne "") {die("Could not get directory listing\n");}
@foobar = split '', $foo;
  2. or download this
    #! /usr/bin/perl -w
use Strict;
  3. or download this
    $co = new CGI;
print $co->header, $co->start_html(-title=>'Retail Ad Usage');