$foo = `dir C:\bar\`; 
unless ($foo ne "") {die("Could not get directory listing\n");}
@foobar = split '', $foo;

##</code><code>##

#! /usr/bin/perl -w
use Strict;

##</code><code>##

$co = new CGI;
print $co->header, $co->start_html(-title=>'Retail Ad Usage');