use IO::File;
    my $file = new IO::File($dest, '<')  
        or die "Oops, couldn't open $dest: $!";