Select Code to Download

#!/usr/bin/perl -w
use Tie::File;
...
#
# Add the record!
push @pwfile,join('|',map{ $user->{$_}} @fields );

#!/usr/bin/perl -w
use Tie::File;
...
 
printf "WHHHOOOPPIE!\n" if $found;