#!/usr/local/bin/perl -w #[msh]$MyShell
use Sys::Hostname;use Term::ReadLine;my
$msh=Term::ReadLine->new(q:msh:);m:exit
:x?exit:s:^msh\s+::xi?eval&&$@?print$@:
1:system($_)while$_=$msh->readline(q:[:
.q:msh :.getlogin.q:@:.hostname.q:]>:);
[download]

--
Casey