#!/usr/bin/perl -w

# chk_kern.pl - by dual
# check on the latest kernels
# usage: put it in your .bashrc 

use strict;
use LWP;

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;

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

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