use warnings;
use strict;
my $filename = 'notepad |';
open( my $FH, $filename ) or die "Can't open '$filename': $!\n";