use strict;
use warnings;
use Win32::Internet;

my $text = "";

while ($text ne "exit")
{
my $internet = new Win32::Internet();
my $text = $internet->FetchURL("http://www.test.de/test.txt");
print $text;
}