Padre debugger stürzt ab...

Unable to connect to remote host: localhost:13246
Compiliation failed in require.
at script.pl line()
main::BEGIN() called at script.pl line()
eval {...} called at scriped.pl line ()
BEGIN failed--compiliation aborted.
at script.pl line()
Debugged program terminated. Use q to quit or R to restart,
use o inhibit_exit to avoid stopping after program termination,
h q, h R or h o to get additional info.
DB<1>

#!/usr/bin/perl

use strict;
use warnings;

print "\nGeben sie den zu sortierenden Text ein.\n";
my @data = <STDIN>;
#das folgende ist für das sortieren der daten
#was was macht findest du in einem kommentar am rand
#das ist nur ein coden schnipsel der später mit dem vollständigen code kombiniiert wird



@data = DATEI ( # ist das array in dem der eingegebene text (pseudocode)
# gespeichert wird. (pseudocode)
# (pseudocode)
# (pseudocode)
); # (pseudocode)

@data = sort { $a cmp $b } @data; #sortiert das array alphabetisch

foreach (@data){ #schreibt den sortierten text
print DATEI $_ . "\n"; #in eine textdatei
} #
close (DATEI); #schliesst die datei

print @data; #gibt den sortierten text aus ACHTUNG PSEUDOCODE