if ($^O =~ /linux/) {
	$working_directory = `pwd`;
} elsif ($^O =~ /win32/) { # or value for win32
	$working_directory = `cd`;
} else {
	$working_directory = "./"; # :)
}