#!/usr/bin/perl -w

#init prog
use Tk;
use Tk::NoteBook;
$ENV{HOME} = "C:\\"; #define to request warnings in Tk.pm


my $mw = MainWindow -> new( -width  => 800,
			    -height => 600);

my $nb = $mw->NoteBook() -> pack();

my $cardCustomer = $nb->add('data',  -label => 'Kundendaten');
my $cardEmail    = $nb->add('email', -label => 'Emailversand');
my $cardPost	 = $nb->add('post',  -label => 'Postaufkleber');

$cardCustomer -> Label(-text => 'In Seite 1')->pack();
$cardEmail    -> Label(-text => 'In Seite 2')->pack();
$cardPost     -> Label(-text => 'In Seite 3')->pack();

MainLoop();