#!/usr/bin/perl

use strict;
use warnings;

my $obj = cios->new();
$obj->cmdloop;

package cios;
use base qw(Term::Shell);
use CPAN;

sub prompt_str {
    my $cwd = 'cwd';
    $cwd =~ s[^\Q$ENV{HOME}\E][~];
    "cios> "
}

sub run_system {
    print "\nYour System:\n",
          "Perl $]\n",
          "$^O\n",
          "$0\n\n";
}

sub run_version {
my $mod = 'Term::Shell';
for $mod(CPAN::Shell->expand("Module", $mod)) {
     print "The current version is: ", 
     $mod->cpan_version, "\n",
     "The installed version is: ", 
     $mod->inst_version, "\n",
     $mod->inst_file, "\n";
    }
}