#!/usr/bin/perl -w
 
use strict;
use IO::Socket;
use File::Slurp;

my $xml1 = read_file("C:\\Users\\deadpickle\\Desktop\\UAS\\GRRUVI_1.50\\panel\\test.xml");

my $MySocket=new IO::Socket::INET->new(PeerPort=>1234,Proto=>'udp',PeerAddr=>'localhost');

while (1) {
    print $xml1;
    $MySocket->send($xml1);
    sleep 5;
}