path: root/utils/pos/directnet.pl

#!/usr/bin/perl

( $host, $proto, $port ) = @ARGV;

socket( SOCK, 2, 1, getprotobynumber($proto) );

$dest = pack( 's n a4 x8', 2, $port, pack( 'CCCC', split( /\./, $host ) ) );

connect( SOCK, $dest );

open( 'STD', '-' );
while ( $line = <STD> ) {
    print SOCK $line;
}
close STD;
close SOCK;