#!/Perl/bin/perl

use strict;
use warnings;
use Storable qw(store retrieve);

=comment

Store a value:

  >perl ser.pl store stored_value
  set stored value to stored_value

Retrieve stored value:
  >perl ser.pl other_task some_value
  other_task: <stored_value, some_value>

=cut

my $task = $ARGV[0];
my $input = $ARGV[1];

if( $task eq 'store' ) {
	store( {number => $input}, 'store.txt' );
	print "set stored value to $input\n";
}else{
	my $ref = retrieve('store.txt');
	my $number = $ref->{number};
	print "$task: <$number, $input>\n";
}