#!/usr/bin/perl -w

use strict;
use warnings;
use Data::Dumper qw/Dumper/;
use Perl6::Say;
use FindBin qw/$Bin/;
my $url = 'http://board.perl-community.de/';

use LWP::UserAgent;
use HTTP::Request;
my $ua = LWP::UserAgent->new();
$ua->agent("MyApp/0.1 ");

# Create a request
my $req = HTTP::Request->new(GET => $url);

my $res = $ua->request($req);
print $res->status_line();