指定したweb上のファイルを取得して、上書き保存したいんですが
以下のように書いても動きませんでした。
何が間違ってるか教えてください。

#!/usr/local/bin/perl

require 'extlib/LWP/Simple.pm';

use LWP::Simple;
$doc = get('http://www.xxx.com/xxx/test.html');
$filename = "./data/test.html";
open( FH , ">$filename" );
print FH $doc;
close( FH );
exit( );

__END__