#!perl
use Win32::Printer;

my $dc = new Win32::Printer(
            height          => 214,
            width           => 288,
            printer         => 'emtags',
            unit            => 'pt'
);

my $font = $dc->Font('Arial Bold', 24);
$dc->Font($font);
$dc->Color(0, 0, 255);
$dc->Write("Hello, Mars!", 50, 50);

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