package Pid;

use strict;
use warnings;

my $pid;

sub get {
    my $package = shift;
     return $pid;
}

sub set {
    my $package = shift;
    $pid = shift;
}

1;