Select Code to Download

system("perl move.pl");

#!/usr/bin/perl -w
#script_name = move.pl
...
foreach $file_png (@files_png) {
    move( "$file_png", "./to_move/$file_png" ) or die "Copy png failed
+: $!";
}