sub CSV_Importierung [ my $Fenster_Benutzer_Verwaltung = $_[ 0 ]; my $Auflistung_Benutzer_Inhalte = $_[ 1 ]; print "GUI : $Fenster_Benutzer_Verwaltung" , "\n"; print "ML : $Auflistung_Benutzer_Inhalte" , "\n"; my @ext = ( [ "CSV Files" , [ qw/.csv/ ] ] , [ "All Files" , [ '*' ] ] , ); my $Rueckmeldung_CSV_Importierung = $Fenster_Benutzer_Verwaltung -> getOpenFile( -filetypes => \@ext , ); &Parser_CSV_Importierung( $Rueckmeldung_CSV_Importierung ); }