#!/usr/bin/perl -w

use strict;
use Getopt::Std;
my $what;

$| = 1;

my @hosts;
my %opts;

while (<STDIN>) {
  chomp;
  push(@hosts, $_);
}

getopts(':dw', \%opts);

$what .= ' bla' if $opts{'d'};
$what .= ' blabla' if $opts{'w'};

print "OK? [Y|n]>\n";
my $yesno = <STDIN>; chomp $yesno;
exit 1 if $yesno =~ /^[nN]$/;

print "Did not stop, sorry!\n";