use strict;
use warnings;

use lib 'f:\scripts524';
use English;

my $cmd='CreateFile.exe';
my $pid = open CMD, '|-', $cmd or die $!;

sleep 2;
print CMD "\r";
print CMD "\n";
print CMD "\f";

print CMD hex '6B';

print CMD oct 153;

close CMD;
waitpid($pid,0);