Help for this page

Select Code to Download

Select or download this

    use strict;
    use warnings;
...
    my $sc = *$fh{IO};

    print <$sc>;