tom poe wrote:

> #!/usr/bin/perl -w
> print "Content-type: text/html\n\n";
> print "Hello World";
> $pwd = `pwd`;
> print "The Password is: $pwd\n";
>
> The single quotes around pwd on the right side of the = sign, are actually
> back-tics.

This won't work if the server doesn't chdir to directory, where your
script is located, before running it, but this will:

#!/usr/bin/perl -w
use FindBin;
print <<END;
Content-Type: text/plain

Script $FindBin::Script is in $FindBin::Bin
and after resolving the links
Script $FindBin::RealScript is in $FindBin::RealBin
END

- RaFaL Pocztarski, [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to