use strict; use locale; use LWP::Simple; if ( $#ARGV != 0 ) { die "Usage : ", $0, " URL\n"; } my $URL = $ARGV[0]; my $page = get( $URL ); if ( not defined( $page ) ){ die "Problème lors du téléchargement !\n"; } print $page,"\n";