Help for this page

Select Code to Download


  1. or download this
    my $file_name = param('photo');

use Data::Dumper;

print Dumper($CGI::Q->{'.tmpfiles'});
  2. or download this
    use CGI qw(:standard);

open(SAVE, ">test.out") or die "Can't open test.out: $!\n";
save_parameters(SAVE);
  3. or download this
    use CGI qw(:standard);

open(SAVE, "test.out") or die "Can't open test.out: $!\n";
...
my $file_name = param('photo');

# ...