use warnings;
use strict;
my $filename = 'notepad |';
open( my $FH, "<", $filename ) or die $!;