#!/usr/bin/perl -w use strict; use Convert::yEnc qw(ydecode); ydecode(\*STDIN);