Help for this page

Select Code to Download

Select or download this

for (glob ("$upload_dir/$in{'imgid'}.*")) {
   unlink($_)
      or die("Can't delete file $_: $!\n");
}

Select or download this

use Scalar::Util qw( tainted );

...
   unlink(/(.*)/s)
      or die("Can't delete file $_: $!\n");
}