Select Code to Download

use warnings;
use strict;
...
    my $out = $self->{out};
    print $out $text;
}

Can't locate object method "print" via package "IO::Handle"