#!/usr/bin/perl

use strict;
use warnings;
use Net::Interface;

my @all = Net::Interface->interfaces(); 
print $all[0]->name,"\n"; 

my @allnames = "@all"; 
print @allnames,"\n";