sub add_and_trash
{
  my ($name) = @_;

  my $newname = `convert $name`;
  print "<hr>\n";

  my $cmd1 = "/tools/addbundle.pl $newname";
  print $cmd1. "<hr>\n";
  system( $cmd1 );  # can take ~2-3 minutes

  my $cmd2 = "mv $newname /tmp/trashed";
  print $cmd2. "<hr>\n";
  system( $cmd2 );
}