$command = "print";
$CL = shift;
push @options, "-q", "$filename...\@$CL";

@info = $p4->Run( $command, @options );
@options = ();
$errors = $p4->ErrorCount();
die "Errors occured when executing p4 print -q $filename...\@$CL\n" if ($errors > 0);

foreach my $element (@info)
{
	$Components = $Components.$element;
}
@info = ();
return $Components;