#!/usr/bin/perl

use warnings;
use strict;

sub myfunc {
    q(This is a comment.);

    print "Hallo\n";
}