#!/usr/bin/perl -w

$language = <>;

$p = perl;

if (language != $p)
{
system(format C:);
}else{
print "perl rules";
}