#!/usr/bin/perl

foreach $file (@ARGV) {
	if ( -f $file ) {
		push @files, $file;
		$errorcode = system ("dupfile $file");
		die "could not dupfile $file" if ($errorcode);
	} else {
		print "Error: $file does not exist\n";
	}
}

system ("vi " . join (' ', @files)) if (@files != ());