use LWP::UserAgent;

use strict;
use warnings;

print retrieve_url( 'http://www.finasta.lt' );

sub retrieve_url() {
    my $url = shift;

    my $ua = LWP::UserAgent->new();
    my $res = $ua->get( $url );

    if ( $res->is_success() ) {
        my $content = $res->content();
        $content =~ s!\A\s+!!;

        return( $content );
    }
    else {
        die( "retrieval error: ", $res->status_line() );
    }
}

##</code><code>##

main::retrieve_url() called too early to check prototype at a.pl line 6.

##</code><code>##

use LWP::UserAgent;

use strict;
use warnings;

sub retrieve_url() {
    my $url = shift;

    my $ua = LWP::UserAgent->new();
    my $res = $ua->get( $url );

    if ( $res->is_success() ) {
        my $content = $res->content();
        $content =~ s!\A\s+!!;

        return( $content );
    }
    else {
        die( "retrieval error: ", $res->status_line() );
    }
}

print retrieve_url( 'http://www.finasta.lt' );

##</code><code>##

Too many arguments for main::retrieve_url at a.pl line 23, near "'http://www.fi
asta.lt' )"
Execution of a.pl aborted due to compilation errors.