#!perl
use strict;
use warnings;

$ENV{PATH} = 'P:\WGet;' . $ENV{PATH};
my $link = 'http://www.example.org';
my $file = 'test.txt';
print "download on work....\n";
my $WGET_command = "wget ".$link." -O ".$file;
print "WGET-Command: ".$WGET_command."\n";
my $status = system($WGET_command);
print $status;