Implemented --long

Warning: now short for `--lines` is `-n`, not `-l`, which is taken by
`--long`.  The idea is to make it resemble `-l` in `-ls -l` (although
the real meaning for `ls` is somewhat different).

bin/se

@@ -14,12 +14,15 @@ sub usage;
 
 my $direction = 'encz.en';
 my $lines = 25;
+my $max_lines = 50;
+my $long = 0;
 my $man = 0;
 my $help = 0;
 my $host = 'www.slovnik.cz';
 
 GetOptions(
-    'lines|l=i'     => \$lines,
+    'long|l'     => \$long,
+    'lines|n=i'     => \$lines,
     'direction|d=s' => \$direction,
     'help|?|h'    => \$help,
     'man'       => \$man
@@ -27,6 +30,8 @@ GetOptions(
 pod2usage(1) if $help;
 pod2usage(-exitstatus => 0, -verbose => 2) if $man;
 
+$lines = $max_lines if $long;
+
 my $word = shift or usage;
 
 my $query  = sprintf(