Select Code to Download

use strict;
use File::Copy;
...

copy("$status_file","/tmp/foo");

copy(\*STATUS,"/tmp/foo");