#!/usr/bin/perl
use strict;
use warnings;

my $total;
print "> ";
while(my $line = <>){
  chomp $line;
  my ($cmd, $num) = split " ", $line, 2;
  process($cmd,$num,$total);
  print "OK\n\>";
}

sub process{
  my($cmd,$num,$total) = @_;
  print "COMMAND: $cmd, VALUE: $num, TOTAL: $total \n";
}