lwp_simple_get.pl

嵌入式ＷＥＢ

#!/usr/bin/perl -wT

use strict;
use LWP::Simple;

my $location = shift || die "Usage: $0 URL\n";

getprint( $location );