#!/usr/bin/env perl use cwd; my $dirname; $dirname = cwd(); print "$dirname\n"; [download]
In reply to cwd module by PerlZealot