use strict;
    use warnings;

    my $r = shift;
    $r->content_type('text/plain');
    print("Now is: " . scalar(localtime) . "\n");