#! /usr/bin/perl -w

open (FH,"lshal.txt") || die "Datei nicht gefunden";