Possible cheat routine?

sub cheat{
  use LWP::Simple;
  my $cheatsheet = get("http://perldoc.perl.org/perlcheat.html");
  unless ($cheatsheet){ die "Failed to get help!" };
  study $cheatsheet;
  unless ($cheatsheet =~ m/Inline::CPR/g){
    use Tiny::Try;
    try( &{ $cheatsheet = 
              get("http://search.cpan.org/~sisyphus/Inline-0.45/C/C-Co
+okbook.pod")
           } );
  }
  return $cheatsheet;
  undef $cheatsheet; ## you can never clear your tracks
}
[download]

I don't know if this even compiles, but it is my first attempt at a poem too!