File: apgcli.pl

package info (click to toggle)
apg 2.2.3-3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 608 kB
  • ctags: 533
  • sloc: ansic: 4,867; php: 744; sh: 194; makefile: 105; perl: 9
file content (10 lines) | stat: -rwxr-xr-x 252 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
 
#!/usr/bin/perl -w
$host = "localhost";
use IO::Socket;
$remote = IO::Socket::INET->new(
    Proto => "tcp",
    PeerAddr => $host,
    PeerPort => "pwdgen(129)",
    )
    or die "cannot connect to pwdgen port at $host";
while ( <$remote> ) { print }