Advertisement
AyaIshigawa

Perl Terminal

Jan 13th, 2017
176
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.57 KB | None | 0 0
  1. Add me on facebook: https://www.facebook.com/Anonsec.Aya
  2. Like us on facebook: https://www.facebook.com/AnonSecHackersOfficial
  3.  
  4. ----------------------------------------------------------------------------------
  5. #!/usr/bin/perl -w
  6. # Created by Aya-chan
  7. # Modding this script doesn't mean you created this
  8.  
  9. use Win32::Console;
  10.  
  11. my $CONSOLE = Win32::Console->new( STD_OUTPUT_HANDLE );
  12. $CONSOLE->Free;
  13.  
  14. sub get_input {
  15. print "Aya-chan > ";
  16. my $input = <>;
  17. $input =~ s/\n//;
  18.  
  19. system( $input );
  20. get_input( );
  21. }
  22.  
  23. $CONSOLE->Title( "Perl Terminal" );
  24. get_input( );
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement