Select Code to Download

sub rdw_open(*$;@)  # need a file handle and a name, but allow more fo
+r the 3 arg open...
{
    my $fh = shift;
    tie *{$fh}, __PACKAGE__, @_ ;
}

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