#!/usr/bin/perl -w use Data::\ Dumper; print (@ARGV);