#!/usr/local/bin/perl
 @a=\`ls\`; print @a