package Transceiver;
use strict;
use fields qw(receive transmit);

sub new {
    my($package,$receive,$transmit) = @_;
    my $self = [{
               
 "receive" => $receive,
               
 "transmit" => $transmit
               
 }];
    bless $self, $package;
}

package main;

my $receiver = Transceiver->new(145, 135);
print $receiver->{transmit};