#!/usr/bin/perl -w
use strict;

...

sub once_in_a_blue_moon {
  use LWP::Simple;
  my $page = get('http://www.yahoo.com');
}