print "Enter file name:\n";
chomp(my $file = <STDIN>);
open(DATA,$file);

##</code><code>##

chomp(my $infile = shift);
open(DATA,$infile) or die "Could not open $infile\n";

##</code><code>##

chomp (my $outfile = shift);
open OUTPUT, '>', $outfile or die "Could not open $outfile\n";

##</code><code>##

  printf "%-4s: %20s,  %-8s %6s\n",

##</code><code>##

  printf OUTPUT "%-4s: %20s,  %-8s %6s\n",