#!/usr/bin/perl
# whereami.pl
use Cwd;
print(cwd / "\n");