Help for this page

Select Code to Download


  1. or download this
    # 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");
  2. or download this
    # 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");