Help for this page

Select Code to Download

Select or download this

my %param = (
  srcdir    => '/home/me/perl/',
  destdir   => '/root/perl/',
...
system /bin/mv $param{tarball} $param{destdir} and die $!;
cd $param{destdir};
system /usr/bin/tar $param{tarball} -zxvf and dir $!

Select or download this

my %info = (
  ' script'     => "$0",
  ' executable' => "$^X $]",
...
for (keys %info) {
  print $_ $info{$key}, "\n";
}