Warn in Perl

Program Code:

# !/Perl/bin/perl

print ("Enter 0 or 1\n");
$input=<STDIN>;
if($input==0){

warn("Hi This is a warning\n");
}
else{

warn("Hi This is a warning with info about the program");
}


print("\nActually i was just giving u warning");

print("\n I have no privilege to terminate your program");


Output: