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

##</code><code>##

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