#!/usr/bin/perl

$input = @ARGV[0];

if ($input eq "succulent") {
	print "Welcome!\n";
} else {
	print "You are bad. Go away.\n";
}