#!/usr/bin/perl -w

#Libaries
use strict;
use warnings;
use Cwd;
binmode(STDIN, ":encoding(cp437)");
binmode(STDOUT, ":encoding(cp437)");

system('cls');

chdir "K:/server1/images/" || die "$!";

print cwd();