Select Code to Download

#!/usr/bin/perl
use strict;
...
$fh->can("seek")? no
Can't locate object method "seek" via package "IO::Handle" at memhandl
+e.pl line 19.
$fh is tied? no