$file = '/path/to/file';

eval "unlink $file";
$@ && print "You do not have delete permission on $file\n";