Select Code to Download

#!/usr/bin/perl
use strict;
...
print "<p><b>Name</b> -- $name<br><b>Email</b> -- $email<br><b>Comment
+s</b> -- $comments<br>";

print $q->end_html;

$VAR1 = [
          bless( \*{'Fh::fh00001multiuploads/a.txt'}, 'Fh' ),
...
Name -- a
Email -- b
Comments -- ok