% use Data::Dumper;
% use CGI;

% my $cgi = new CGI;
% my %input = $cgi->param();

% layout 'default';
% my $dir = '/home/tony/outage-management/testing';
% open (TEST,">$dir/device_list_test.txt");

% print TEST '%input: ', Dumper(%input);