summaryrefslogtreecommitdiff
path: root/utils/pos/directnet.pl
diff options
context:
space:
mode:
Diffstat (limited to 'utils/pos/directnet.pl')
-rwxr-xr-xutils/pos/directnet.pl17
1 files changed, 7 insertions, 10 deletions
diff --git a/utils/pos/directnet.pl b/utils/pos/directnet.pl
index 3bdd2e51..efe4de0a 100755
--- a/utils/pos/directnet.pl
+++ b/utils/pos/directnet.pl
@@ -1,19 +1,16 @@
#!/usr/bin/perl
-($host, $proto, $port) = @ARGV;
+( $host, $proto, $port ) = @ARGV;
-socket(SOCK, 2, 1, getprotobynumber($proto));
+socket( SOCK, 2, 1, getprotobynumber($proto) );
-$dest=pack(
- 's n a4 x8', 2, $port,
- pack('CCCC', split(/\./, $host))
-);
+$dest = pack( 's n a4 x8', 2, $port, pack( 'CCCC', split( /\./, $host ) ) );
-connect (SOCK, $dest);
+connect( SOCK, $dest );
-open ('STD', '-');
-while ($line = <STD>){
- print SOCK $line;
+open( 'STD', '-' );
+while ( $line = <STD> ) {
+ print SOCK $line;
}
close STD;
close SOCK;