my $src_addr   = substr($pkt, 26, 1);
    my $src_addr1  = ord  $src_addr;

    $src_addr      = substr($pkt, 27, 1);
    my $src_addr2  = ord $src_addr;

    $src_addr      = substr($pkt, 28, 1);
    my $src_addr3  = ord $src_addr;

    $src_addr      = substr($pkt, 29, 1);
    my $src_addr4  = ord $src_addr;