Select Code to Download

use File::Temp 'tempfile';
...
...
{
    ...
}

my $filename = 'data.txt';

...
{
    ...
}