#!/usr/bin/perl -w
use strict;
print "Using '$ARGV[0]' as source\n";
print "Using '$ARGV[1]' as target\n";
print "Leftover arguments: '$ARGV[2]'\n";