#!/usr/bin/perl
use strict;
use warnings;
#use LWP::Simple;
use HTML::Strip;
use WWW::Mechanize;

my $search = <>;
my $url = $search;
my $content WWW::Mechanize->new();
$content -> get $url;

my $user = "havox";
my $pass = "test";

$content->form(1); #index starts at 1 instead of 0.
$content->field("user", $user); #finds form and inputs data from $user
$content->form(2);
$content->field("pwd". $pass);
$content->click(); #clicks submit button


#ignore everything below this line
my $hs = HTML::Strip->new();
my $clean_text = $hs->parse($content);

       print $clean_text;
        #print "Search:";
        #chomp(my $string = <>);

        my $taa = "<php blah blah blah ?>";

        open FILE, ">>stan.php" or die $!;
        print FILE $taa;
        close File;


#my $result = index($content, $string);