Over the past 10 days or so we keep finding this file in the /tmp directory:
file name - pget
file content:
---------------------------------------
#!/usr/bin/perl
use IO::Socket;
use strict;
use warnings;
$ARGV[0] =~ m,http://([^/]+)/(.+),;
my $server = $1; my $path = $2;
my $socket = new IO::Socket::INET(Proto => 'tcp', PeerAddr => $server, PeerPort => 80) or die "Can't connect\n";
print $socket "GET /$path HTTP/1.0\r\nHost: $server\r\n\r\n";
my $input = <$socket>;
die "Error, got: $input" unless $input =~ /200 OK/;
my $start = undef;
while ($input = <$socket>) {
if ($start) {
print $input;
}
elsif ($input =~ m/^\r\n$/) {
$start =1;
}
}
---------------------------------------
We have secured our tmp directories, so running this file produces this result:
# ./pget
# -bash: ./pget: Permission denied
Does anyone have an idea of what this may be all about?
file name - pget
file content:
---------------------------------------
#!/usr/bin/perl
use IO::Socket;
use strict;
use warnings;
$ARGV[0] =~ m,http://([^/]+)/(.+),;
my $server = $1; my $path = $2;
my $socket = new IO::Socket::INET(Proto => 'tcp', PeerAddr => $server, PeerPort => 80) or die "Can't connect\n";
print $socket "GET /$path HTTP/1.0\r\nHost: $server\r\n\r\n";
my $input = <$socket>;
die "Error, got: $input" unless $input =~ /200 OK/;
my $start = undef;
while ($input = <$socket>) {
if ($start) {
print $input;
}
elsif ($input =~ m/^\r\n$/) {
$start =1;
}
}
---------------------------------------
We have secured our tmp directories, so running this file produces this result:
# ./pget
# -bash: ./pget: Permission denied
Does anyone have an idea of what this may be all about?