# use File::Spec if you want to be more portable.
# The following supports at least unix and Windows.
$dir = ($0 =~ m#^(.*[\\/:])# ? $1 : '');

my $logo = $main->Photo(-file=>$dir."samsunglogo.gif");