my $my_DIR = dirname("$my_FILE"); my $my_tmp_file = basename("$my_FILE"); my @my_output = `cd $my_DIR; $my_SCCS edit $my_tmp_file`; print "

@my_output


\n"; my @my_output = `echo "cd $my_DIR; $my_SCCS edit $my_tmp_file"`; print "

@my_output


\n";