Leser: 20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
use strict; use CGI; our @ISA = qw(CGI); use Data::Dump qw(dump); use warnings; # main Konstruktor sub new{ my $class = shift; my $self = {}; $self = $class->SUPER::new; # Attribute erben return bless $self, $class; } my $q = main->new; printf "%s%s", $q->header(-charset=>'UTF-8'), dump $q;