use File::Copy;

copy($file,'lpt1:');