Select Code to Download

use strict;
open(IN, "datafile") or die "can't open datafile";
...
$_= <IN>;
close IN or die "can't close IN";
print "datafile:\n", $_ or die "can't print";