Select Code to Download

        my $outfile = $_."_"."$nm" for @lines ;

print sprintf "Have %d items\n", 0+@lines;

my $item = $lines[0];
my $outfile = $item . '_' . $nm;
print "$outfile\n";

#! / usr/bin/perl -w

...
Acct:456

bar