Help for this page
package Chdir; sub TIESCALAR {my $class = shift; bless \$class => $class} sub STORE {${$_ [0]} = $_ [1]; chdir $_ [1]} sub FETCH {${$_ [0]}}
package main; ... } print "Dir = " . `pwd`;
www.com | www.net | www.org
No recent polls found
