#!/usr/bin/perl

use thor;

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