Select Code to Download

#!/usr/bin/perl -w

...
die "src cannot equal dest" if ($src eq $dest);

doit ($src);