#!/usr/bin/env perl

sub dirgets()
{
  my $dirval;
  system(pwd);
  $dirval = <STDOUT>;
  return($dirval);
}

my $name;
$name = &dirgets();