#!/usr/bin/perl

$frames_per_second = 30;

$text_to_search_for = "00000";

if (! defined $ARGV[0]) {
  print "Please specify a folder that contains the rendered images (which should be in sequence)\n";
  print "The first file of a sequence must have five zeros \"00000\".\n";
  print "Note: You can point me to a folder full of differently named images and I will create movies of each sequence of images that have similar names.  In otherwords, just give me a folder and I will do the right thing.\n";
  exit;
}

chdir $ARGV[0];
$path = `pwd`;
chomp $path;
@list = `ls *$text_to_search_for*`;
$file = $list[0];
print $file;
chomp $file;
system "osascript -e 'tell application \"QuickTime Player\" to open image sequence POSIX file \"$path/$file\" frames per second $frames_per_second'";
system "osascript -e 'tell application \"QuickTime Player\" to save movie 1 in  POSIX file \"$path/$file.mov\" as self contained'";
system "osascript -e 'tell application \"QuickTime Player\" to close movie 1'";