#! /usr/bin/perl

use strict;
use warnings;

my $file = '/zu/pruefende/datei';
if(-f $file){
  print "Ist ne Datei\n";
}