Tk::Error: Die Datei kann nicht geoeffnet werden!
 Tk callback for .frame.button
 Tk::__ANON__ at C:/ActivePerl/site/lib/Tk.pm line 251
 Tk::Button::butUp at C:/ActivePerl/site/lib/Tk/Button.pm line 175
 <ButtonRelease-1>
 (command bound to event)

#!"C:\ActivePerl\bin\perl.exe"

use strict;
use warnings;
use Tk;

my @text;

my $haupt = new MainWindow;

my $links = $haupt ->Frame();
$links->Label(-text => "\nBitte Dateinamen der Ursprungsdatei eingeben, Pfad beachten!: \n")->pack();
my $ursprungsdateiname = $links->Entry();
$ursprungsdateiname->pack();

$links->Label(-text => "\nBitte Dateinamen der Zielsdatei eingeben, Pfad beachten!: \n")->pack();
my $zieldateiname = $links->Entry();
$zieldateiname->pack();

my $schalter = $links->Button(-text => "Einlesen und durchnummerieren",
                              -command => [\&nummerierung]
                              )->pack();
                              
my $schalter2 = $links->Button(-text => "Beenden",
                              -command => [$haupt => 'destroy']
                              )->pack(-pady => "20");

my $rechts = $haupt ->Frame();
$rechts->Label(-text => "Ergebnis:")->pack();
my $ergebnis = $rechts->Listbox();
$ergebnis->pack();

$links ->pack (-side =>"left");
$rechts ->pack (-side => "right");
               
MainLoop();

sub nummerierung {
        
        #Array für Text aus Datei#
        my @text;       
        #Ursprungsdatei öffnen#        
        my $input = $ursprungsdateiname->get;
        open (DATEI, "<$input")
        or die "Die Datei kann nicht geoeffnet werden!\n";

        #Dateiinhalt in Array einlesen#
        while ( <DATEI> )
        {
                push @text, $_;
        }

        #Zieldatei öffnen#
        my $output = $zieldateiname->get;
        open (DATEINEU, ">$output")
        or die "Die neue Datei kann nicht geoeffnet werden!\n";

        #Textarray zeilenweise durchlaufen und Zeilennummerierungen in neue Datei schreiben#
        my $zeile =0;


        foreach ( @text ){
          print DATEINEU "$zeile $_";
          $zeile++;     
        }
        
        #Dateien schliessen#
        close (DATEI);
        close (DATEINEU);

        $ergebnis->insert('end', "Zeilennummerierung erfolgreich ausgef&uuml;hrt.");
}