#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw    = MainWindow->new;
my $image = $mw->Photo(-file => 'C:/wamp/bin/Perl/bin/ajax_loader.gif');
$mw->Label(-image=>$image)->pack;
$mw->MainLoop;