#! perl

system("cls");
print "perlshell ;)\n\n";

my ($dir, $line);
while(1) {
	$dir = `cd`;
	chomp $dir;
	print "$dir> ";
	$line = <STDIN>;
	chomp $line;
	$line =~ s/^\s+//g;
	$line =~ s/^ls( -\w+)?/dir/i;
	$line =~ s/^cp( -\w+)?/copy/i;
	$line =~ s:/:\\:g;

	unless( $line =~ /^cd/ ) {
		system("$line");
	} else {
		$line =~ s/^cd\s+//i;
		(chdir($line) or print "ERROR: Directory ($line) doesn't exist!\n") 
			if(length($line));
	}
}