#!/usr/bin/perl

my $test = qq(
    func(1);
    func(2);
    func(3);
    func(4);
);

print $test;