Select Code to Download

package thor;
 
...
bless $self, $class;
return $self;
}

#!/usr/bin/perl

...

rdw_open(FH,"myfile") or die "Couldn't open myfile: $!";
# replaces tie *FH, "thor","myfile"