#!/usr/bin/perl

use strict;
use Expect;

my $exp = new Expect;
$exp->raw_pty(1);
$exp->spawn('/scripts/wwwacct', @ARGV);
$exp->expect(-1, [qr/This ok\?/]);
$exp->send("y\r");
$exp->soft_close();