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 $!