use strict;
    use warnings;

    open my $fh, "somefile";
    my $sc = *$fh{IO};

    print <$sc>;