Like this ?

#!/usr/bin/perl

use strict; # https://www.perlmonks.org/?node_id=11154231
use warnings;
use autodie;

close STDIN;
open STDIN, '<', \"my input\n";
print <>;
[download]