#! /usr/bin/perl

use strict;
use warnings;

unless(open(FILE,"<$ARGV[0]")){
  print_debug("Kann Datei $ARGV[0] nicht öffnen!");
}
else{
  while(my $line = <FILE>){
    print $line;
  }
  close FILE;
}

print_debug("Ein anderer Fehler");

#------------------------------------------------------#
#                  Subroutines                         #
#------------------------------------------------------#

sub print_debug{
  my ($msg) = @_;
  my ($package,$filename,$line) = caller();
  my $logfile = "./skript.log";
  if(open(LOG,">>$logfile")){
    print LOG $filename," ",$line,": ",$msg,"\n";
    close LOG;
  }
}# end print_debug