Select Code to Download

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

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

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

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

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