1 #!/usr/bin/env perl
 2 
 3 # blackened.cz, Jaromír Hradílek's personal website
 4 # Copyright (C) 2006-2013 Jaromír Hradílek
 5 
 6 use strict;
 7 use warnings;
 8 
 9 # General information:
10 use constant NAME   => 'blackened.cz';                # Page URL.
11 use constant AUTHOR => 'Jaromír Hradílek';            # Page author.
12 
13 # Display the banner:
14 print << 'END_BANNER';
15 ===========================================================================
16           _     _            _                       _           
17          | |__ | | __ _  ___| | _____ _ __   ___  __| |  ___ ____
18          | '_ \| |/ _` |/ __| |/ / _ \ '_ \ / _ \/ _` | / __|_  /
19          | |_) | | (_| | (__|   <  __/ | | |  __/ (_| || (__ / / 
20          |_.__/|_|\__,_|\___|_|\_\___|_| |_|\___|\__,_(_)___/___|
21 
22 ===========================================================================
23 END_BANNER
24 
25 # Display the welcome message:
26 print "Welcome to " . NAME . ", " . AUTHOR . "'s personal home page.\n";
27 print "-" x75 . "\n\n";
28 
29 # Display the menu:
30 print "1) blaze.blackened.cz - BlazeBlogger, a CMS without boundaries\n";
31 print "2) w2do.blackened.cz  - w2do, a simple text-based todo manager\n";
32 
33 # Display the prompt:
34 print "Your choice: "; # FIXME
35 
36 # Return success:
37 exit 0;