#! /usr/bin/perl -l

use warnings;
use strict;

s cm cjump s or hide s it eq phcxg cmp s oin ocker oxsio
or s jm pjstjxis ne s k s or k anotk or s s eq ps s lt s
qit qerl qog or s wide s wq qer pqwe eq print and last
for eval q s caller s

##</code><code>##

#! /usr/bin/perl

use warnings;
use strict;

s cm cjump s or hide s it eq phcxg cmp s oin ocker
oxsio or s jm pjstjxis ne s k s or k anotk or s seq ps s lt s
qit qerl qog or s wide s wq qer pqwe eq print and last
for eval q s caller s