#! perl -slw
use strict;

sub sanitizeDir {
	require Cwd;
	my( $path ) = @_;
	my( $cwd ) = Cwd::getcwd() =~ m[^(.*)$];
	return unless do{ local %ENV; $path =~ s[^(.*)$][$1]; chdir $path; };
	my $sanitized = Cwd::getcwd();
	chdir $cwd;
	return $sanitized =~ s[^$cwd][$cwd] ? $sanitized : ();
}

my $dubiousPath = $ARGV[0];

my $absPath = sanitizeDir( $dubiousPath );

if( defined $absPath ) {
	print 'Absolute path: ', $absPath;
}
else {
	print 'Invalid path:  ', $dubiousPath;
}