args

#!/usr/bin/env perl
use strict;
use warnings;

print "Invocado como [[$0]]\n";
print "Arg: [[$_]]\n" foreach @ARGV;

print "Vamos otra vez:\n";
foreach $_ (@ARGV) {
    print "[[$_]]\n" if ($_ eq uc $_);
};