Send a raw TCP or UDP packet. (Perl Module)

Packet::Simple.pm

# use lib qw(./lib);
# use Packet::Simple;
# my $obj = Packet::Simple->new("192.168.1.2", 50001);
# $obj->send_tcp();

package Packet::Simple;
use strict;
use warnings;

our $VERISON = '0.01';

use Socket;

sub new {
  my $self = shift;
  my ($iaddr, $port) = @_;
  return bless {
    iaddr => $iaddr,
    port => $port,
  }, $self;
}

sub send_udp {
  my $self = shift;

  my $proto = getprotobyname('udp');
  socket(Socket_Handle, PF_INET, SOCK_DGRAM, $proto);
  send(Socket_Handle, 0, 0, sockaddr_in($self->{port}, inet_aton($self->{iaddr})));
}

sub send_tcp {
  my $self = shift;

  my $proto = getprotobyname('tcp');
  socket(Socket_Handle, PF_INET, SOCK_STREAM, $proto);
  connect(Socket_Handle, sockaddr_in($self->{port}, inet_aton($self->{iaddr})));
}

1;