$file="foo.txt";
print `type $file > lpt1:`;
print `echo "\f" > lpt1:`;