#!/usr/bin/perl
  use strict;
  use WWW::Mechanize::Shell;
  my $shell = WWW::Mechanize::Shell->new("shell", rcfile => undef );
  if (@ARGV) {
    $shell->source_file( @ARGV );
  } else {
    $shell->cmdloop;
  };