#!/usr/local/bin perl5.14.2                                                     
use File::Basename;

my @sufijos = qw(.dmg .tar.gz .rar .zip);

sub parsear {

    my $input =	shift;
    $name = basename ( $input, @sufijos );

}

print map &parsear($_)."\n" , @ARGV;