interface POS2/2.
interface POS4/1.

##</code><code>##

interface POS2/1
 bandwidth 155520
 no ip address
 no ip directed-broadcast
 no ip proxy-arp
 load-interval 30
 shutdown
 crc 16
!
interface POS2/2
 description PL99999/9999999999-O, NNI southbound To Somewhere
 no ip address
 no ip directed-broadcast
 no ip proxy-arp
 encapsulation frame-relay IETF
 no ip mroute-cache
 crc 16
 frame-relay lmi-type cisco
!
interface POS2/2.30 point-to-point
 description POS2/2.30 fr dlci=30. By VPNSC: Job Id# = 111
 ip vrf forwarding ABC:ABCD
 ip address 192.168.254.2 255.255.255.252
 no ip directed-broadcast
 snmp trap link-status
 no cdp enable
 frame-relay interface-dlci 30 IETF   
!
interface POS2/2.31 point-to-point
 description POS2/2.31 fr dlci=31. By VPNSC: Job Id# = 112
 ip vrf forwarding ACD:FGEI
 ip address 192.168.254.6 255.255.255.252
 no ip directed-broadcast
 snmp trap link-status
 no cdp enable
 frame-relay interface-dlci 31 IETF   
!

##</code><code>##

interface POS2/2.30 point-to-point
 description POS2/2.30 fr dlci=30. By VPNSC: Job Id# = 111
 ip vrf forwarding ABC:ABCD
 ip address 192.168.254.2 255.255.255.252
 no ip directed-broadcast
 snmp trap link-status
 no cdp enable
 frame-relay interface-dlci 30 IETF 
interface POS2/2.31 point-to-point
 description POS2/2.31 fr dlci=31. By VPNSC: Job Id# = 112
 ip vrf forwarding ACD:FGEI
 ip address 192.168.254.6 255.255.255.252
 no ip directed-broadcast
 snmp trap link-status
 no cdp enable
 frame-relay interface-dlci 31 IETF

##</code><code>##

open(OUTFILE, ">outfile");

open(MYINPUTFILE, "file2");
open(MYINPUTFILE1, "file1");

while (<MYINPUTFILE>) {
        my($line) = $_;
	my $line1 = <MYINPUTFILE1>;
	chomp($line1);
	print OUTFILE if /$line1/ .. /frame-relay/;
   	}

close(MYINPUTFILE);
close(MYINPUTFILE1);