#!/usr/bin/perl
# meshi ver.1.0 by Y.Yokota 1995

# init.
srand(time|$$);
@shop = ( '久留味', 'まこ', '誠', 'おらんじゅ', 'ハイライト',
	  '蔵田屋', '白水', '天一', 'コロッケ', 'あやとり',
	  'をくだ', 'カロリーメイト');

# main
($wday)=split(/ /,`date`);
if ($wday eq 'Mon') {
    $answer = '食いしんぼうの店でステーキ';
} elsif ($wday eq 'Fri') {
    $answer = '食いしんぼうの店でトンカツ';
} else {
    $answer = $shop[int(rand(@shop))];
}
print "$answer\n";