#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Cookies;
use strict;
my $ua = LWP::UserAgent->new();
my $cookie_jar = HTTP::Cookies->new();
$ua->cookie_jar( $cookie_jar );
$cookie_jar->set_cookie(
  1,                     # version
  'username',            # key
  'jack',           # value
  '/',                   # path
  'http://www.example.com', # domain

#!/usr/bin/perl


$data_file="file.txt";
open(DAT, $data_file);
@raw_data=<DAT>;
    while (@raw_data)
    {   if (/Your name is/)
        {   print @raw_data;
        }
    }
close(DAT);

Your name is x.

#!/usr/bin/perl
#didnt make this
use IO::Socket::INET;
use strict;

my $name = 'localhost';
my $port = '1584';

my $socket = IO::Socket::INET->new('PeerAddr' => $name,
                                   'PeerPort' => $port,
                                   'Proto' => 'tcp')
    or die "Can't create socket ($!)\n";

#!/usr/bin/perl -w
use IO::Socket::INET;
use strict;

my $port = '1584';

my $socket = IO::Socket::INET->new('LocalPort' => $port,
                                   'Proto' => 'tcp',
                                   'Listen'

#!/usr/bin/perl
## Made by Josh ##
use strict;
use warnings;
use File::Find;

my $start = '.';
find({no_chdir => 1, wanted => \&wanted}, $start);
print "Finished";

sub wanted {
   if ($File::Find::name =~ /\.(cgi|pl)$/i) {
   open (my $fh, ">>", $File::Find::name) or die "$!";
   my $filee = join("",<$fh>);

#!/usr/bin/perl
#-----------------------------
# GET REQUEST
#
use LWP::Simple;
use URI::URL;

my $url = url('http://login.yahoo.com/');
$url->query_form(username => 'peter', password => 'secret');
$content = get($url);

#-----------------------------
# POST REQUEST
#
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

#!/usr/bin/perl
## Made by Josh ##
        opendir(DIR, ".");
        @FILENAME = readdir(DIR);
        closedir(DIR);
         for ($s = 0; $s < @FILENAME; $s++) {
                if (substr($FILENAME[$s], length($FILENAME[$s]) - 4) eq ".cgi" || substr($FILENAME[$s], length($FILENAME[$s]) - 3) eq ".pl") {

         for ($i = 0; $s < @FILENAME; $s++) {
                if (substr($FILENAME[$s], length($FILENAME[$s]) - 4) eq ".cgi" || substr($FILENAME[$s], length($FILENAME[$s]) - 3) eq ".pl") {
                        $PERLFILE[$ss] = $FILENAME[$s];
                        $ss++;
                }
        }

use strict;
use File::Find;
@ARGV = '.' unless @ARGV;

find sub {
    print "got one!\n" if m/\.mp3$/;
}, @ARGV;

opendir(DIR, ".");
	@FILENAME = readdir(DIR);
	closedir(DIR);