COPY:
$J="Just a stupid command";
use File::Copy;
copy("$Line[0]","$Line[1]") or die "Copy failed: $!";