my $out = pod2pdf(@args);
print "Content-Type: application/pdf\n";
print "Content-Disposition: attachment; filename=$username.tasks.pdf\n\n";
unlink "./pod/$username.tasks.$$.pod";
binmode(STDOUT);
return print $out;

##</code><code>##

my $out;
{ 
	local $/ = undef;
	open(PDF, "$file") or die "foo $!";
	$out = <PDF>;
	close PDF;
}