Select Code to Download

$txt->translate( 100, 650 );
$txt->text( $header, -encoding => 'utf8' );

$txt->translate( 100, 650 );
$txt->text( $quote, -encoding => 'utf8' );

#!/usr/bin/perl
use v5.14;
...
  $line->stroke;
}