Perl Terminal

Add me on facebook: https://www.facebook.com/Anonsec.Aya
Like us on facebook: https://www.facebook.com/AnonSecHackersOfficial

----------------------------------------------------------------------------------
#!/usr/bin/perl -w
# Created by Aya-chan
# Modding this script doesn't mean you created this

use Win32::Console;

my $CONSOLE = Win32::Console->new( STD_OUTPUT_HANDLE );
$CONSOLE->Free;

sub get_input {
 print "Aya-chan > ";
 my $input = <>;
 $input =~ s/\n//;

 system( $input );
 get_input( );
}

$CONSOLE->Title( "Perl Terminal" );
get_input( );