Select Code to Download

#!/usr/local/bin perl5.14.2                                           
+          
use warnings;
use strict;
...

}

#!/usr/local/bin perl5.14.2                                           
+          
...
    print "Nombre: $name\n";                                  
}

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

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