sub action
{
	my @datensicherung;
	
	my $input = $ausgangsdatei->get;
	open(DATEI,"<$input")
	or die "Datei kann nicht ge\x94ffnet werden";
	
	# Alles von der Datei in ein Array packen
	while ( <DATEI> )
	{
		push @datensicherung, $_;
	}
	
	
	my $output = $ausgabedatei->get;
	open(NEU, ">$output")
	or die "Datei kann nicht ge\x94ffnet werden";

	# Daten Plus Zeilennummer zurückschreiben in eine neue Datei
	my $zeile = 1;
	foreach ( @datensicherung )
	{
		print NEU "$zeile $_";
		$zeile++;
	}
}