Perl:入力

標準入力からのデータ読み込み
$a = <STDIN>
@array = split(/\s/,$a);

実行時のオプション
@ARG
$001=$ARGV[0]; 
$002=$ARGV[1];