#!/usr/bin/perl

open(datei, "<test.txt") || die "Datei wurde nicht gefunden\n";
while(<datei>) {
   print $_;
   }
close(datei);