#!/usr/bin/perl -
use File'Util shuffle;print shuffle<>