My Command In Perl