Help for this page

Select Code to Download

Select or download this

$line =~ s!#.*$!!; # strip off comments
my( $key, $value ) = split /=/, $line;