package HTTP::Server::Simple::Test;
our $VERSION = 0.1;
 

use base qw(HTTP::Server::Simple::CGI);
 

sub handle_request {
    my ( $self, $cgi ) = @_;
    my $res = qx("dir");
	print "$res\n";
}

1;