use Cwd;
my $package = 'Tie-File-0.96';

sub run {
  my (@command) = @_;
  print "Running @command";
  system(@command) == 0
    or die "Couldn't run : $!";
};

my $old_dir = getcwd;
run("tar", "xvzf", "$module.tar.gz" );
chdir $module
  or die "Couldn't chdir into '$module': $!";
run($^X,"-w","Makefile.PL");
run("make");
run("make","test");
run("make","install");
chdir $old_dir
  or die "Couldn't chdir into '$old_dir': $!";