Select Code to Download

system( "tar -xvf $tarball $some_path" ) == 0
   or die "tar failed: $?";

use Archive::Tar;
my $tar = Archive::Tar->new( $tarball )
    or die "Failed to open $tarball : $!";
$tar->extract( $some_path )
    or die "Failed to extract $some_path: $!";