sub Print{
  my $string = shift();
  print STDOUT "$string\n";
}

##</code><code>##

    print STDOUT "Batch Router - the batch router configurator\n";
    print STDOUT "\n";
    print STDOUT "List of options and their functions:\n";

##</code><code>##

    Print "Batch Router - the batch router configurator";
    Print(); #Empty line
    Print "List of options and their functions:";