#!/Perl/bin/perl use strict; use warnings; use Data::Dumper; use CGI; use CGI::Carp qw/fatalsToBrowser/; my %sw = ( 'start' => \&start, 'zeige' => \&zeige, ); my $q = CGI->new(); my $rm = $q->param('rm') || 'start'; print $q->header(); $sw{$rm}->(); sub start { print $q->start_html(); print qq~
Datei auswaehlen:
~; print $q->end_html(); } # /start sub zeige { my $datei = $q->param('datei'); print STDERR $datei; print $q->start_html(); print "Datei: $datei"; print $q->end_html(); } # /zeige