BEGIN{system("tar -xzvf XX.tar.gz")}

use strict;
use lib "./"
use XX;