#!/usr/bin/perl

my $name = "xxxx.tar";
my $oldname = "xxxx";
my $newname = "myxx";

mkdir "_extract";

system("tar -C _extract -xf $name");

rename "_extract/$oldname", "$newname";

rmdir "_extract";