#!/usr/local/bin/perl

$pattern = shift(@ARGV);

while (<>) {
	print if /^$pattern/;
}