Select Code to Download

my $rec;
sysopen(DF, $ARGV[0], O_RDONLY | O_CREAT) or die "$ARGV[0] : $!";
...
sysopen(DF,"test.txt", O_WRONLY | O_CREAT);
syswrite DF, $out;
close DF;