"Fossies" - the Fresh Open Source Software Archive

Member "apg-2.2.3/perl/apgcli.pl" (7 Aug 2003, 252 Bytes) of package /linux/privat/old/apg-2.2.3.tar.gz:

As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. 
    1 #!/usr/bin/perl -w
    2 $host = "localhost";
    3 use IO::Socket;
    4 $remote = IO::Socket::INET->new(
    5     Proto => "tcp",
    6     PeerAddr => $host,
    7     PeerPort => "pwdgen(129)",
    8     )
    9     or die "cannot connect to pwdgen port at $host";
   10 while ( <$remote> ) { print }