#!/usr/local/bin perl5.14.2                                                     
use File::Basename;
my @sufijos = qw(.dmg .tar.gz .rar .zip);
foreach $arch (@ARGV) {                                                        
    $name = basename( $arch, @sufijos);                     
    print "Nombre: $name\n";                                  
}