#!/usr/bin/perl -w
use strict;
use Image::Magick;
my $file = shift;
my $out = shift;
my $name = shift;
my $company = shift;
my $fax_num = shift;
my $phone_num = shift;
my $image = Image::Magick->new(magick=>'TIFF');
open(DATA, $file) or die "Can't open file - $file - $!";
$image->Read(file=>'DATA');
close(DATA);
my $line_offset_inc = 40;
my $y = 350;
$image->Annotate(text=>$name, y=>$y, fill=>'black',
\t\tpointsize=>20, x=>180);
$y+= $line_offset_inc;
$image->Annotate(text=>$company, y=>$y,fill=>'black',
\t\tpointsize=>20,x=>180);
$y+= $line_offset_inc;
$image->Annotate(text=>$fax_num, y=>$y,fill=>'black',
\t\tpointsize=>20,x=>180);
$y+= $line_offset_inc;
$image->Annotate(text=>$phone_num, y=>$y,fill=>'black',
\t\tpointsize=>20,x=>180);
$image->Write($out);