Select Code to Download

my $a = <STDIN>;
if($a eq 'y'){
...
}

print "$fname $lname\n"; #Vars are out of scope now, will die under st
+rict

#!/usr/bin/perl 
use strict;
...
    print OUT "$recno^$qno^$vtext";
  }     
}