if(-e $filename) {
  print "$filename exists";
}
[download]

For more details see: perldoc -f -x