path: root/debian/perl-framework/t/htdocs/security/CAN-2004-0959.php

<?php
 if (is_uploaded_file($_FILES['user_file']['tmp_name'])) {
     print $_FILES['user_file']['name'];
 } else {
     print "FAILED";
 }
?>