#!/usr/local/bin/perl -w
use strict; 
use Tk;
use Tk::ProgressBar;
# Main Window
my $mw = new MainWindow;
$mw->geometry("1600x900");

#GUI Building Area
my $label = $mw ->Label (-text => "first", -foreground => "blue", -font => "Arial 7") ->pack(-fill => 'x');
$label    = $mw ->Label (-text => "second", -foreground => "blue", -font => "Arial 12") ->pack(-fill => 'x');
$label    = $mw ->Label (-text => "third", -foreground => "blue", -font=> "Arial 10") ->pack (-side => 'left', -anchor => 'nw', -ipadx => '50', -fill => 'x');
$label    = $mw ->Label (-text => "forth", -foreground => "blue", -font=> "Arial 10")->pack (-side => 'left', -anchor => 'nw', -ipadx => '150', -fill => 'x');
$label    = $mw ->Label (-text => "fifth", -foreground => "blue", -font => "Arial 10")->pack (-side => 'left', -anchor => 'nw', -ipadx => '150', -fill => 'x');
$label    = $mw ->Label (-text => "last", -foreground => "blue", -font=> "Arial 10")->pack (-side => 'left', -anchor => 'nw', -ipadx => '150', -fill => 'x');
            
###############################################
#
# Creating the buttons
#
###############################################
my $dir; my $path_dir;

# Create the car folders button
my $cf = $mw->Button(
    -text    => 'Create car folders',
    -bac     => 'lightblue',
    -width   => '17', 
    -command => \&push_button)->pack(-side => 'left');


MainLoop;