#!perl

sub command($self, $cart, $command, @) {
    if ($command =~ m[^https?://]) {
        print "This is not a browser...\n";
    }
    return NEXT;
}