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

use constant ERR => "Error in program";
use constant OK => "successfully run";

my $failure_status = func(0);
print $failure_status."\n";

my $sucess_status = func(1);
print $sucess_status."\n";


sub func {
 my $error=shift;
 if ($error){
   return ERR;
 }
 else {
   return  OK;
 }
}