1 #! /usr/bin/perl

     1 #! /usr/bin/perl

     2 

     2 

     3 # This is no real example, it is just for testing the

     3 # This is no real example, it is just for testing the

     4 # server. And the server is just for testing the Quancom.pm.

     4 # server. And the server is just for testing the Quancom.pm.

     5 # So - it's almost of no use for you :)

     5 # So - it's almost of no use for you :)

     6 

     9 

     7 use strict;

    10 use strict;

     8 use warnings;

    11 use warnings;

     9 use POSIX qw(tmpnam);

    12 use POSIX qw(tmpnam);

    10 use Getopt::Long;

    13 use Getopt::Long;