#!/usr/bin/perl

use warnings;
use strict;

my $awsLists = '/ansible/awsLists';
my @command;

@command=`aws ec2 describe-instances --filters "Name=instance-state-name,Values=running" | grep PrivateDnsNam$


        foreach my $line (@command)
        {
	chomp($line);
                if (grep /$line/, $awsLists )
                {
                print "found\n";
                }
                else
                {
                print "not found\n";
                system qq{ echo "$line" >> "$awsLists"};
                }

        }