#!/usr/bin/perl -w

# kernel_check.pl - by dual
#
# Checks on the latest kernels
##############################


use strict;
use LWP;


# Create browser instance and fetch banner
my $browser = LWP::UserAgent->new;
$browser->env_proxy();
my $response = $browser->get(
	'http://www.kernel.org/kdist/finger_banner'
);
die "What's wrong?" unless $response->is_success;


# Output response
my $output = $response->content;
print $output;


# One-liner for good measure
# perl -MLWP::Simple -e "getprint('http://www.kernel.org/kdist/finger_banner');"