(cperl-mode)
(indent-region 0 (buffer-size)  nil)
(save-buffer)

##</code><code>##

> emacs -batch try.pl -l .emacs -l perl-indent.el

##</code><code>##

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

for (1) { print "emacs rules"; }

while (1) { print " ... at least in viper mode\n"; }

##</code><code>##

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

for (1) {
    print "emacs rules";
}

while (1) {
    print " ... at least in viper mode\n";
}