Ayuda con este codecito en perl

[WiNsMuRf]

Hola estoy iniciandome en perl, esto esta muy genial...es facil y todo.. Pero con este code que llevo escribiendo desde anoche

Código:

#!/usr/bin/perl

system('clear');
print "Maximilinux Smart\n";
print "Cargandoro...\n";
sleep 2;
print "[+]Cargandoro Menu\n";
sleep 2;
print "[+]Cargandoro Modulos\n";
sleep 2;
print "[+] Hecho!\n";
sleep 4;

menu:;
system('clear');
print "Elige una opcion del menu\n";
print "1. Ejecutar MC\n";
print "2. Descomprimir tar.gz\n";
print "3. Descomprimir tar.bz2\n";
print "4. Acerca de..\n";

$opcion = <STDIN>;
chop $opcion;
if ($opcion!=1 && $opcion!=2 && $opcion!=3 && $opcion!=4) {
print "Escoge una opcion del 1 al 4\n";
print "Pulsa una tecla para continuar...\n";
$conu = <STDIN>;
goto menu;
}
if ($opcion == 1) {
&menuuno
}
if ($opcion == 2) {
&menudos
}
if ($opcion == 3) {
&menutres
}
if ($opcion == 4) {
&menucuatro
}




sub menuuno {

print "Ejecutar Midnight Commander\n";
print "Realmente Desea ejecutar mc?\n";
print "Si o No  [S o N] ";
$mc = <STDIN>;
chop $mc;
if ($mc == S) {
system('mc');
}
if ($mc == N) {
print "[+]Aborting...\n";
system ('clear');
goto menu;
}
}

sub menudos {
print "Descomprimir tar.gz\n";
print "Escribe la ruta completa al archivo .tar.gz";
$tarball = <STDIN>;
chop $tarball;
 @tar = split(/\./,$tarball);
if ($tar[0]!=tar) {
print "No es archivo reconocido";
goto menu;
sleep 1;
}
if ($tar[1]!=gz) {
print "No es archivo reconocido";
goto menu;
sleep 1;
}
else {
$do = tar -zxvf $tarball;
system('$do');
}
}

sub menutres {

print "Descomprimir .tar.bz2\n";
print "Escribir la ruta al archivo .tar.bz2";
$bunzip = <STDIN>;
chop $bunzip;
}

Me arroja el error de:
Can't call method zxvf without a package or object reference at max_smart.pl line 80, <STDIN> line 2.

El error ocurre cuando intento descomprimir un tar.gz
saludos

[jasus]

El error "Can't call method zxvf without a package or object reference at max_smart.pl line 80, <STDIN> line 2." se puede solucionar metiendo el comando entre comillas dobles.

Código:

else {
$do = "tar -zxvf $tarball";
system($do);
}

Venga, un saludo.

[WiNsMuRf]

gracias!
me funciono a la perfeccion