Select Code to Download

my $offset = 300;
for my $line (@names) {
    $pdf->text( "Hello PERL", x => 300, y => $offset );
    $offset = $offset + 50; # move to "next line"
};