#!/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";
}

##</code><code>##

#!/bin/ksh

for file in $*; do
  echo "archiving $file";
  archivedvd $file;
  sleep 60;
  verifydvd $file;
done