#!/usr/bin/perl -w @ARGV = qw(Y S); # ydecode, single-part require "t/decode.pl";