#$input =;
#chop($input);
$input ="fil";
$input ="c:\\perl\\robin\\temp\\*${input}*";
print glob($input);
unlink glob($input);

    Source: geocities.com/robinchatterjee