Select Code to Download

use strict;
use CGI;
...
        my ($test, $filename, $buffer, $bytes_read, $data) = @_;
        print $$test;
}

use strict;
use warnings;
...
        my ($test, $filename, $buffer, $bytes_read, $data) = @_;
        $$test .= ': success';
}