use Sysadm::Install qw(untar_in);
untar_in("tarball.tgz", "directory");