my $filename = shift || 'test.pdf';