tempest

[php]
#!/usr/bin/perl
$pwd = "";
open(getPwd, "/bin/pwd |");
while(<getPwd>) {
$pwd .= $_;
}
close getPwd;

print "The working directory is, " . $pwd;
[/php]

There is probably a much simpler way, my perl skills are rudimentary.

__________________