#!/usr/bin/perl

use strict;
use warnings;

use Monro::CC;

my $transaction_info = read_psin();
my @transaction_info = @{$transaction_info};

my $trans_obj = Monro::CC->new(
    transaction_type => $transaction_info[0],
);