Sure. Net::Ping seems to be the way to go. Tons of examples are available in super search. Something like

#!/usr/bin/perl 
use strict;
use warnings;
use diagnostics;

use Net::Ping;
my $i;
my $host;
my $p = Net::Ping->new("syn");
   $p -> bind("10.90.1.27");

for( $i = 0; $i <= 254; $i++) {
     $host = "10.90.1.$i";
     $p -> ping("$host", 2);
     print("$host\n") if pingecho($host);
 }
[download]

is a slow but functional sweeper. Edit your subnet and local host as necessary.
In addition, you might find How do I gather files from remote machines? useful.