Help for this page

Select Code to Download


  1. or download this
    use Data::Dumper;
$Data::Dumper::Deparse = 1;
...
            my $filename = shift @_;
            return "/tmp/$x/" . $filename;
        };
  2. or download this
    use Data::Dump::Streamer;

...
           my $filename = shift @_;
           return "/tmp/$x/" . $filename;
         };
  3. or download this
    use B::Deparse;

...
    my $filename = shift @_;
    return "/tmp/$x/" . $filename;
}