my $filename = 'blahblubb.txt';

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