use Markup::Perl;

Your "lucky number" is print int rand 10