Select Code to Download

use constant DEBUG => 0;

print gmtime($object) ."\n" if $DEBUG == "1";
print gmtime($object) ."\n" if $DEBUG;

# ahem, but since we'll be using the constant DEBUG
print gmtime($object) ."\n" if DEBUG; # sorry i didn't mention this ea
+rlier

for ( @filename ) {
    my $filename = $_;
    ...
}

for my $filename (@filename) {
    ...
}