my $filename = 'D:\blahblubb.txt';

if (-e $filename) {
  print "Datei $filename ist da!\n";
  open(my $fh, "<", $filename) or die "### Problem mit Datei öffnen: $!";
  my @data = <$fh>;
  close($fh);
  # usw.
}
else {
  print "Datei $filename ist NICHT da!\n";
  system("wget http://example.org -O $filename");
}