#!/usr/bin/perl -w
use strict;
use Win32;
my $dir = Win32::GetCwd;
print "$dir";