my $convert_thumbnail  = "convert -interlace NONE -verbose \\
  -border 10x10 -bordercolor black -comment \"copyright Peter Jensen\" \\
  -sample 225x225 ";


my $convert_medium  = "convert -interlace NONE -verbose \\
  -border 10x10 -bordercolor black -comment \"copyright Peter Jensen\" \\
  -sample 750x750 -quality 85 ";

while (<>)
{
  chomp;
  my $orig = $_;
  my $thumbnail = $_;
  my $medium    = $_;
  
  $thumbnail =~ s/\.orig/.thumbnail/;
  $medium    =~ s/\.orig/.medium/;

  die "thumbnail didn't work" if ($thumbnail eq $orig);
  die "medium didn't work"    if ($medium    eq $orig);
  
  my $t_cmd = $convert_thumbnail . " " . $orig . " " . $thumbnail;
  my $m_cmd = $convert_medium . " " . $orig . " " . $medium;
  print `$t_cmd`;
  print `$m_cmd`;
  print "\n";
}