Select Code to Download

use strict;
use warnings;
use feature 'say';
...
my $t = new Test($file);
$t->send("foo");
close $file;

    sub output {
        my ($self, $data) = @_;
        print $$self $data;
    }