use Win32::Printer;
my $dc = new Win32::Printer( 
  printer     => '\\\\hardcopy\\ApDev',
  orientation => LANDSCAPE 
);

my $filename = 'test.txt';
my $image_handle = $dc->Image($filename);
$dc->Image($image_handle);

$dc->End();
$dc->Close();