#!/usr/bin/perl

use strict;
use warnings;

$| = 1;
open(my $f, "lines.txt");
while (<$f>) {
	my ($id, $temp, $time) = split /\s+/;
	next if (!defined $id || !defined $temp || !defined $time);
	print "id: $id ";
	my $name = sprintf "frame%04d.png", $id;
	system("montage -geometry +0+0 -tile 1x1 -label 'N = $id: t = $time sec, T = $temp' frames/$name frames-done/$name");
	print "done\n";
}
close $f;