Listing of socket_udp_client.pl

#!/usr/bin/perl -w
require 5.003;
use strict;
use Socket;
my ($remote,$port, $iaddr, $paddr, $proto);

$remote  = shift || 'localhost';
$port    = shift || 1002;  # random port
if ($port =~ /\D/) { $port = getservbyname($port, 'udp') }
die "No port" unless $port;
$iaddr   = inet_aton($remote)              or die "no host: $remote";
$paddr   = sockaddr_in($port, $iaddr);

$proto = getprotobyname('udp');
socket(Socket_Handle, PF_INET, SOCK_DGRAM, $proto) or die "socket: $!";

# send(Socket_Handle, "Hello there, it's now " . (scalar localtime) . "\r\n", 0, $paddr);

my $dgram = 
q{IMEI 123456789012345} . "\r\n" .
q{$GPRMC,144858.159,A,6009.0358,N,02453.3223,E,0.00,006.40,191104,,*05} . "\r\n" .
q{OutCell 38091 LAC 30464 Name SAT-C MCC 510 MNC 1} . "\r\n" .
q{In Cell 34747 LAC 2161 Name SONERA MCC 244 MNC 91} . "\r\n" .
q{Label Aspicore Ltd} . "\r\n" .
q{*DE6279AE} . "\r\n";

send(Socket_Handle, $dgram, 0, $paddr);

exit;

This file was generated by Gabriel Knoy's perl2html script.