sub ch_dir
{
    my ($cmd) = @_;
    $cmd =~ s/cd //;
    chdir($cmd) || die $!;
}