#!/usr/bin/perl -w
use strict;

##########################
#                        #
# Coded by Scott J Ulmen #
#                        #
##########################
my $source;
my $dest;
($source, $dest) = @ARGV;
my $new = "$dest".'/'."$source";

if (-d $dest) {
        rename $source, $new;
} elsif (-e $dest) {
        print "Sorry, $dest already exists in this dir!\n";
} else {
        rename $source, $dest;
}