Select Code to Download

my($file, $comment) = /^(\S+)\s*(.*)/;

open(F,"< $from\0") or die "Can't read $from: $!\n";