Select Code to Download

#!/usr/bin/perl -w
use strict;
...
__END__

# here is script with comments

# first the indentation does not help you read this. 
# we indent to help identify blocks of code like:
...
# I have added a counter that will register if all goes to plan
# this will always give you a cheery message regardless!
print "Files renamed !";