>501

$file = <STDIN> ;
if (-e $file){
print "存在します" ;
}else{
print "存在しません" ;
}

で、存在するファイルをフルパスで入力しても
存在しません
ってでてくる。