Select Code to Download

  print "." while ( <STDIN> );  print "\n";
  seek(STDIN,0,0);
  print "," while ( <STDIN> );  print "\n";

use strict;
 my ( $dfrom, $dsubj );
...
  close(AS);
  }