$ cat a.pl
#!/usr/bin/perl
use yX;
cevag("Uryyb, Jbeyq!\a");