package Fotocut;

use strict;
use warnings;
use Tk;
use Tk::Canvas;
use Image::Magick;
use Win32::FileOp;
use Win32::GUI();
use Win32::Capture;
use MIME::Base64;
use Tk::Balloon;
use Tk::JPEG;
use Tk::PNG;

my ($mw, $canvas);

sub new
{
$mw = MainWindow->new();
...
MainLoop;
}

sub SelectFile
{
...
}

1;