package Test;

sub subs {
    my $string = "hello world";
    local *STDIN;
    open(STDIN, '<', \$string) or die "open failed: $!";
    binmode STDIN;

    while(<>) {
        print;
    }
}

1