If your boss demands a UML diagram describing the program, you can give
    him this:

        print sightly( { Shape       => 'uml',
                         SourceFile  => 'helloworld.pl',
                         Regex       => 1 } );

    If it is a Windows program, you can indicate that too, by combining
    shapes:

        print sightly( { Shape       => 'uml,window',
                         Gap         => 1,
                         SourceFile  => 'helloworld.pl',
                         Regex       => 1 } );

    producing this improved visual representation:

                    ''=~('('.'?'.'{'.('`'|'%').('['^'-').(
                    (                                    (
                    (                                    (
                    (                                    (
                    (                                    (
                    (                                    (
                    '`'))))))))))|'!').('`'|',').'"'.('['^
                                      (
                                     ( (
...