#! /usr/bin/perl

open(TODO, "todo") || die "Could not open todo list: $!";

my $cur = 10;

my $string= 'habak -mc 250,250,0,255 -hI INT -hI int ';

while(<TODO>)
{
	my $line = $_;
	chomp $line;	
	$string .= "-mc 255,0,0,255 -mp 10,$cur -ht \'$line\' ";
	$cur +=40;
}

print "String is $string";

system($string);