Select Code to Download

#!/usr/bin/perl

...

my $testfh = MyFilehandler->openForRead("betvek");
$testfh->writeout;