use Cwd; print cwd(); [download]
/J
In reply to Re: capturing graphics with perl2exe by jplindstrom in thread capturing graphics with perl2exe by Anonymous Monk