Select Code to Download

$db = 'aaa.txt';
open(DATA, "$db") or die "did not open: $!\n";
...
print $line;
}
close(DATA);