perltidy -csc -otr -opr -ce -nibc -i=2 < prog.pl

#!/usr/bin/perl --
use warnings;
use strict;
if (@ARGV) {
  for my $n ( 0 .. $#ARGV ) {
    print "ARGV[$n]=$ARGV[$n]\n";
  }
} else {
  print "No command line parameters found.\n";
}
[download]