Select Code to Download

#!/usr/bin/perl -w

...
    $c = $m->content;
    
    print Dumper [ $c ];

$VAR1 = [
          '500 Can\'t connect to www.census.gov:80 (connect: Unknown e
+rror)
'
        ];