#!/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);