#!/usr/bin/perl -w
use strict;

my @liste;
@liste = lade_liste($ARGV[0]);

if(defined($liste[0])) {
  if(scalar(@liste)) {
    print "mach was\n";
  }
  else { 
    warn "Datei war leer, kann nicht weiter machen!" 
  }
} else { 
  warn "Datei konnte nicht geladen werden ($!)" 
}

sub lade_liste {
  my $pfad = shift;
  my @l;
  if (open my $fh, '<', $pfad) {
    @l=<$fh>;
    close $fh;
  }
  return @l;
}