use strict;
use warnings;
use Tk::JPEG;
use Tk;
use File::Basename;

####Verzeichnis Get

my $kill = basename $0;
$_ = "$0";
s/$kill//g;

my $verz = "$_";

####pics

my $pic1 = "me.jpg";


my $mw = MainWindow->new();
my $pic =$mw->Frame();

#mal dreist kopiert ^^ ausem tutorial (vergebung bitte)
my $say = $pic->Canvas()->pack();


$say->createLine( 25, 175, 325, 175,
                -arrow => 'last',
               );
$say->createText( 15, 175,
                -fill  => 'blue',
                -text  => 'X',
               );
$say->createLine(175, 325, 175,  25,
                -arrow => 'last',
               );
$say->createText(175,  15,
                -fill  => 'red',
                -text => 'Y',
               );



my $datei = "$verz$pic1";

my $photo = $pic->Photo(-file => "$datei");

         $pic->Label(-image => $photo)->pack();


$pic->pack();




MainLoop;