@lang = qw/perl c pascal basic english german french/;
print $lang[int(rand(7))];