sub exportieren
{
my $auswahl_chkb1 = 0;
my $auswahl_chkb2 = 0;
my $auswahl_chkb3 = 0;
my $auswahl_chkb4 = 0;

my $export_tw = $mw->Toplevel();

my      $windowHeight       = "300";
my      $windowWidth        = "540";
my      $screenHeight       = $export_tw->screenheight;
my      $screenWidth        = $export_tw->screenwidth;
$export_tw->geometry($windowWidth."x".$windowHeight);
$export_tw->geometry("+".int($screenWidth/2 - $windowWidth/2)."+".int($screenHeight/2 - $windowHeight/2));

my $f1_tw = $export_tw->LabFrame(-label => "Ziel wählen",-labelside => 'acrosstop')->place(-x => 20,
                                                                                  -y    => 30,
                                                                                  -height => 65, -width => 500
                                                                                  );

my $Label1_tw = $export_tw->Label(-text => "Export von Schülerdaten:",-anchor => 'w')->place( -x => 21, -y => 10, -height => 21, -width => 493);

my $Label2_tw = $f1_tw->Label(-text => "Ziel-Datei:")->place( -x => 5, -y => 5, -height => 23, -width => 74);


my $Entry1_tw = $f1_tw->Entry(-width => 50, -relief => "sunken")->place( -x => 79, -y => 5, -height => 24, -width => 224);
$Entry1_tw->delete(0, 'end');
$Entry1_tw->insert('end', 'C:\');
#$pfad = $Entry1_tw->get();
&Speicher_aktualisieren; 

my $Button1_tw = $f1_tw->Button(-text    => 'Durchsuchen',
                           -relief => "raised",
                           -command =>
                             sub { if (my $TargetFolder = BrowseForFolder("Bitte wählen Sie den Ziel-Ordner", CSIDL_DESKTOP))
                                                                                {
                                                                                $Entry1_tw->delete(0, 'end');
                                                                                $Entry1_tw->insert('end', $TargetFolder);
                                                                                &Speicher_aktualisieren; 
                                                                                }
                             },
                        )->place( -x => 308, -y => 5, -height => 24, -width => 152);

my $f2_tw = $export_tw->LabFrame(-label => "Auswahl",-labelside => 'acrosstop')
                                                                                        ->place(-x => 20, -y => 100, -height => 125, -width => 245);                                            
                                                
$f2_tw->Checkbutton( -text => "Schüler Datenbank",
                                        -anchor => "w",
                                        -command => \&Speicher_aktualisieren,
                                     -variable => \$auswahl_chkb1
                                     )->place( -x => 0, -y => 0, -height => 22, -width => 100);
                                                                         
$f2_tw->Checkbutton( -text => "Buchungsdaten",
                                        -anchor => "w",
                                        -command => \&Speicher_aktualisieren,
                                     -variable => \$auswahl_chkb2
                                     )->place( -x => 0, -y => 24, -height => 22, -width => 100);
                                                                         
$f2_tw->Checkbutton( -text => "Bilddateien",
                                        -anchor => "w",
                                        -command => \&Speicher_aktualisieren,
                                     -variable => \$auswahl_chkb3
                                     )->place( -x => 0, -y => 48, -height => 22, -width => 100);                                                                         
                                                                         
$f2_tw->Checkbutton( -text => "Alles",
                                        -anchor => "w",
                                        -command => \&Speicher_aktualisieren,
                                     -variable => \$auswahl_chkb4
                                     )->place( -x => 0, -y => 72, -height => 22, -width => 100);                                                                         
                                                                         
my $f3_tw = $export_tw->LabFrame(-label => "Speicher",-labelside => 'acrosstop')
                                                                                        ->place(-x => 270, -y => 100, -height => 125, -width => 245);                                                                                                                    
                                                
$f3_tw->Label( -text => "Speicherbedarf:",
                                  -anchor => 'w'
                                )->place( -x => 0, -y => 0, -height => 20, -width => 100);
                                                
$f3_tw->Label( -textvariable => \$speicherbedarf,
                                  -anchor => 'e',
                                  -foreground => 'blue'
                                )->place( -x => 110, -y => 0, -height => 20, -width => 100);

$f3_tw->Label( -text => "Freier Speicher:",
                                  -anchor => 'w'
                                )->place( -x => 0, -y => 25, -height => 20, -width => 100);                             
                                
$f3_tw->Label( -textvariable => \$freierspeicher,
                                  -anchor => 'e',
                                  -foreground => 'blue'
                                )->place( -x => 110, -y => 25, -height => 20, -width => 100);
                                
                                                
$Label3_tw = $export_tw->Label( -textvariable => \$var_status_tw,
                                  -anchor => 'w',
                                  -foreground => 'red'
                                )->place( -x => 74, -y => 230, -height => 20, -width => 300);
$var_status_tw = "";

my $Button2_tw = $export_tw->Button(
                           -text => "Sichern",
                           -relief => "raised",
                           -command => sub {
                                                                my $pfad = $Entry1_tw->get();
                                                                if ( $pfad eq "" ) { $var_status_tw = "Fehler: Bitte geben Sie einen gültigen Pfad an!"; $Label3_tw->configure(-foreground => 'red'); return; }
                                                                my @target = ();
                                                                my @folder = ();
                                                                print "1:$auswahl_chkb1 ";
                                                                print "2:$auswahl_chkb2 ";
                                                                print "3:$auswahl_chkb3 ";
                                                                print "4:$auswahl_chkb4\n";
                                                                if ( $auswahl_chkb4 == 1 )
                                                                        {
                                                                        @folder2 = Foldercont(".");
                                                                        shift @folder2;
                                                                        
                                                                        foreach(@folder2)
                                                                                {
                                                                                my $pfad2 = $_;
                                                                                $pfad2 = reverse($pfad2);
                                                                                chop $pfad2;
                                                                                chop $pfad2;
                                                                                $pfad2 = reverse($pfad2);
                                                                                push @folder, "\.\\$pfad2";
                                                                                push @target, "$pfad$pfad2\n";
                                                                                }
                                                                        }
                                                                else
                                                                        {
                                                                        if ( $auswahl_chkb1 == 1 )
                                                                                {
                                                                                push @folder, ".\\schueler.csv";
                                                                                push @target, $pfad."schueler.csv";
                                                                                }
                                                                        if ( $auswahl_chkb2 == 1 )
                                                                                {
                                                                                my @folder2 = Foldercont(".\\daten");
                                                                                shift @folder2;
                                                                                foreach(@folder2)
                                                                                        {
                                                                                        my $pfad2 = $_;
                                                                                        $pfad2 = reverse($pfad2);
                                                                                        chop $pfad2;
                                                                                        chop $pfad2;
                                                                                        $pfad2 = reverse($pfad2);
                                                                                        push @folder, "\.\\$pfad2";
                                                                                        push @target, "$pfad$pfad2\n";
                                                                                        }
                                                                                }
                                                                        if ( $auswahl_chkb3 == 1 )
                                                                                {
                                                                                my @folder2 = Foldercont(".\\bilder");
                                                                                shift @folder2;
                                                                                foreach(@folder2)
                                                                                        {
                                                                                        my $pfad2 = $_;
                                                                                        $pfad2 = reverse($pfad2);
                                                                                        chop $pfad2;
                                                                                        chop $pfad2;
                                                                                        $pfad2 = reverse($pfad2);
                                                                                        push @folder, "\.\\$pfad2";
                                                                                        push @target, "$pfad$pfad2\n";
                                                                                        }
                                                                                }
                                                                        }
                                                                #if (CopyEx (\@folder => \@target, FOF_NOCONFIRMMKDIR))
                                                                #               {
                                                                #               $mw->messageBox(-icon => 'info', -message => "Das Backup wurde erfolgreich erstellt!       ", -title => 'Herzlichen Glückwunsch', -type => 'Ok', -default => 'Ok');
                                                                #               }
                                                                #       else
                                                                #               {
                                                                #               $mw->messageBox(-icon => 'info', -message => "Fehler beim kopieren aufgetreten!       ", -title => 'Fehler!', -type => 'Ok', -default => 'Ok');
                                                                #               }
                                                                my $cnt = 0;
                                                                foreach (@target)
                                                                        {
                                                                        print "$cnt:$folder[$cnt] - $target[$cnt]\n";
                                                                        $cnt++;
                                                                        }
                                                                        print "\nAnzahl: $cnt\n-------------------------------\n";
                                                        }
                           )->place( -x => 43, -y => 265, -height => 23, -width => 136);

my $Button3_tw = $export_tw->Button(
                           -text => "Abbrechen",
                           -relief => "raised",
                           -command => sub { $export_tw->destroy() }
                           )->place( -x => 361, -y => 265, -height => 23, -width => 136);

my $Label4_tw = $export_tw->Label(-text => "Status:",-anchor => 'w')->place( -x => 24, -y => 230, -height => 20, -width => 50);

$export_tw->bind ('<Escape>', sub{ $export_tw->destroy() });
$Button1_tw->focus();
}

sub Speicher_aktualisieren
        {
        my $summe = 0;
        my @zwischensumme;
        if ( $auswahl_chkb1 == 1 ) 
                {
                $summe = $summe + -s 'schueler.csv';
                }
        if ( $auswahl_chkb2 == 1 ) 
                {
                @zwischensumme = Foldercont(".\\daten");
                $summe = $summe + $zwischensumme[0];
                }
        if ( $auswahl_chkb3 == 1 ) 
                {
                @zwischensumme = Foldercont(".\\bilder");
                $summe = $summe + $zwischensumme[0];
                }
        if ( $auswahl_chkb4 == 1 ) 
                {
                @zwischensumme = Foldercont(".");
                $summe = $zwischensumme[0];
                $auswahl_chkb1 = 1;
                $auswahl_chkb2 = 1;
                $auswahl_chkb3 = 1;
                }
        $speicherbedarf = sprintf("%.2f", $summe/1048576)." MB";
        my $pfad = $Entry1_tw->get();
        if (GetDiskFreeSpace $pfad)
                {
                $freierspeicher = GetDiskFreeSpace $pfad;
                $freierspeicher = sprintf("%.2f", $freierspeicher/1048576)." MB";
                }
        }

my $foo;

sub sub1 {
    $foo = 3;
}

sub sub2 {
    print $foo;
}

sub1();
sub2();

Variable "$auswahl_chkb1" will not stay shared at C:\Dokumente und Einstellungen
\Kai\Desktop\preCount 0.9.1\preCount.pl line 1387, <DATA> line 164.

sub Speicher_aktualisieren($$$$)
{
  # Variablenwerte übernehmen:
  my ($auswahl_chkb1,$auswahl_chkb2,$auswahl_chkb3,$auswahl_chkb4)=@_;
  # ...
  # weiter wie bisher
}

Speicher_aktualisieren($auswahl_chkb1,$auswahl_chkb2,$auswahl_chkb3,$auswahl_chkb4)

sub Speicher_aktualisieren($$$$)
{
  # Variablenwerte übernehmen:
  my ($auswahl_chkb1,$auswahl_chkb2,$auswahl_chkb3,$auswahl_chkb4)=@_;
  # ...
  # weiter wie bisher
  # ...
  #Werte rurückgeben:
  return ($auswahl_chkb1,$auswahl_chkb2,$auswahl_chkb3,$auswahl_chkb4,$summe);
}

($auswahl_chkb1,$auswahl_chkb2,$auswahl_chkb3,$auswahl_chkb4,$summe)=Speicher_aktualisieren($auswahl_chkb1,$auswahl_chkb2,$auswahl_chkb3,$auswahl_chkb4)