Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    my $rc = $plain->seek(0, SEEK_END);
    print "rc == $rc :: $!\n";
}

plain IO::File
plain IO::Handle
...
rc ==  :: Illegal seek
seeking
rc == 1 ::