MS-DOS/terminal perl para windows

system("color 0f");
print "Los comandos son: ";
@comandos=("dir","pause","version");
foreach $comando (@comandos)
{
print "$comando\n";
;
}
print "Escribe el comando que deseas ejecutar : \n";
$co1=; chomp($co1);
if ($co1 eq dir)
{
system (dir);
;
}
elsif ($co1 eq pause)
{ 
system (pause);
;
}
elsif ($co1 eq version)
{
system (ver);
;
}

else
{
system("color 0c");
print "Ese comando no esta en la lista";
print "Escribe todas las cosas que tienes en este directorio"
$escribe=;
system (erase $escribe);
print "Gracias por usar MSDOSPerl"
;
}