Help for this page

Select Code to Download

Select or download this

use IO::Handle;
my $sm = IO::Handle->new;
open ($sm, ...