open my $handle, "| @commands" or die "Can't fork. $!";
#print $handle , "\x3"; #  if necessary
close $handle or warn "Couldn't close $handle. $!";