Select Code to Download

$file =~ /^([-\w.]+)$/;
    $file = $1;
...
    $user_dir = $1;

unlink("/home/httpd/sec-html/$realm/$user_dir/$file");

Insecure dependency in unlink while running with -T switch at /home/ht
+tpd/sec-cgi/surflo/todd/delete line 47.