#!/usr/bin/perl -w

my $file = "/tmp/anything.tgz";
system("tar -vxzf $file");