Select Code to Download

my $cnt = 0;
...
  $cnt++;
...
print $cnt, "\n";

print "$.\n";

my $filename = '$mainDir\test.txt';

my $filename = "$mainDir\test.txt";

my $mth_end = sprintf "%04d,%02d,%02d",$y,$m,Days_in_Month($y,$m);

printf OUT "                                  Placement    Release    
+  Tot    Chg\n";
printf OUT "                                  Date         Date       
+  Days   Days   Cost\n";

print OUT "                                  Placement    Release     
+ Tot    Chg\n";
print OUT "                                  Date         Date        
+ Days   Days   Cost\n";

  my @dates = split '\s+', $_;

  my @dates = split;

  if ($free >= 0) {
     my $amt = $free;
...
    my $pfmt = "%-14s %-5s %-8s %-3s %-12s %-12s %-6s %-6s %-6s\n"; 
    printf OUT $pfmt, $dates[0], $dates[1], $dates[2], $dates[3], fmt_
+mdy($dates[4]), fmt_mdy($dates[5]), $diff, $amt, fmt_curr($cost);
   }

  my $amt = $free < 0 ? 0 : $free;
  my $cost = $amt * 100;
  my $pfmt = "%-14s %-5s %-8s %-3s %-12s %-12s %-6s %-6s %-6s\n";
  printf OUT $pfmt, @dates[ 0, 1, 2, 3 ], fmt_mdy( $dates[ 4 ] ), fmt_
+mdy( $dates[ 5 ] ), $diff, $amt, fmt_curr( $cost );

  $ymd =~ s/ //g;
#  return ' 'x10 if $ymd eq $NULL_DATE;
  my ($y,$m,$d) = split /\D/,$ymd;

  my ( $y, $m, $d ) = split /\D+/, $ymd;

  my ( $y, $m, $d ) = $ymd =~ /\d+/g;

while (<$file>) {
...
...
sub fmt_mdy {
...
}