lwp_simple_get.pl

来自「嵌入式ＷＥＢ」· PL 代码 · 共 9 行

#!/usr/bin/perl -wT

use strict;
use LWP::Simple;

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

getprint( $location );