#!/usr/bin/perl

use warnings;
use strict;
use Fatal qw/ open /;

my $p4 = "p4 -p localhost:20092 -u smoon -c test_ws";

open(IN,"$p4 labels |");
open(OUT,">labelNames.txt");

while(<IN>) {

  if(/^Label (\S+) (\d{4}\/\d{2}\/\d{2}) .*$/) {
     print OUT "$1\n";
     print "$1 $2\n";
  }
}

close(IN);
close(OUT);