#!/usr/bin/perl -w

use strict;
use Carp;

foreach my $file (@ARGV) {
  next unless $file =~ m/ctl$/;
  print "archiving $file\n";
  system "archivedvd $file\n";
  sleep 60;
  system "verifydvd $file\n";
}