#!/usr/bin/perl

foreach $file (@ARGV)
{
  if( -f "$file.orig") { unlink("$file.orig"); }
}