Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  system( @args ) == 0  or die "error removing $file!";

} # End move_file