my $stdin = "Some input text here\n";
close STDIN;
open(STDIN,'<', \$stdin) or die $!;
while (my $line = <STDIN>) {
    print "got line: $line";
}

__END__
got line: Some input text here