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

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