it run good but show error

My script,

Code:
#!/usr/bin/perl -w
use DBI;
use CGI;
use strict;
use warnings;
use File::Copy;
use File::Find;
use POSIX […]

Original post by nooback