Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
sub open_file { print "open_file...\n"; }

__END__

Select or download this

# Tk::Label=HASH(0x1c03614)->configure(-fg => "gray",);