cat ataconfig.pl

#!/usr/bin/perl

#



#$debug=1;



$host='x.x.x.x';

$user='fucker';

$pass='traher';