Parse CSV download from BambooHR to make it useful to import into OSX Contacts

parse_bamboo_contacts.pl

#!/usr/bin/perl

use Text::CSV;
use Data::Dumper;

my $headers = <STDIN>;

my $csv = new Text::CSV;

print "Last, First, Mobile, \"Phone (work)\", \"Email (work)\", \"Skype (work)\"\n";

while( my $line = <STDIN> ) {
    $csv->parse( $line );
    my @row = $csv->fields();
    #print Dumper( \@row );

    my @output;

    my @names = split( ',', shift @row );
    $names[1] =~ s/^\s+//;

    push( @output, $names[0] );
    push( @output, $names[1] );

    push( @output, shift @row );

    my $office = shift @row;
    my $ext = shift @row;
    if( $office eq '' ) {
        push( @output, '' );
    } else {
        push( @output, "$office x$ext" );
    }

    foreach my $field( @row ) {
        push( @output, $field );
    }

    $csv->combine( @output );
    print $csv->string() . "\n";

}

How does this work- how to use it