#!/usr/bin/perl
#usage:  $0  script
use warnings;
$newfile = $ARGV[0];
$outfile = $newfile . '.tmp';
open( FH,  $newfile ) or die $!;
open( OUT, ">> $outfile" );
while (<FH>) {
         #       $_ =~ s/^\s+//g;   #only gets leading whitespace 
    $_ =~ s/^\s+|\s+$//g;       #gets trailing also 
         #next if $_ =~ /^\s*$/;    #removes blank lines 
         #        $_ =~ s/[\t]+//g;  #gets tabs and ws inside strings  
                                                    #and leaves \n 
    print OUT $_ . "\n";

}
close FH;
close OUT;

system( "perltidy", $outfile );

rename( "$outfile.tdy", $newfile );
unlink $outfile;
chmod 0755, $newfile;
exit;