Select Code to Download

#!/usr/bin/perl -w

...
}
1;

#!/usr/bin/perl -w

...
print $q->start_html;
print $q->my_method;

Use of uninitialized value at (eval 4) line 28 (#1)
    
...
    
Content-Type: text/html; charset=

Content-Type: text/html; charset=ISO-8859-1