Checking the basics
script/test.pl
main
44
(-s DATA) 1416
tell(DATA) 1416
fileno(DATA) 6
seek DATA,0 ==> 1
package main; shift @INC;

#line 1 "script/test.pl"

use Filter::Crypto::Decrypt;
......encrypted junk here