use strict;
use warnings;

for (@ARGV) {
    if(/stop/i){
    &stop; 
    }
    if(/start/i){
    &start;
    }
}


sub start
   {
   my ($TARGET, $NAME) = initialize();
   print "$TARGET\n";
   #print "$VER\n";
   print "$NAME\n";
   }

sub stop
   {
   my ($TARGET, $VER, $NAME) = initialize();
   print "$TARGET\n";
   print "$VER\n";
   print "$NAME\n";
   }
   
sub initialize
   {
   my $VER = "1.0";
   my $TARGET = "ON";
   my $NAME = "fritz";
   return ($TARGET, $VER, $NAME);
   }