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

print "hello" . "world\a";

my($s, $k);
$s = 75;
$k = $s > 65 ? "合格" : "不合格";
print $k;