#!/usr/bin/perl -w
    use strict;

    sub parse_defines {
        my $file = shift;
        open(FILE, $file) || die "can't open $file: $!";
        my %defines;
        while(<FILE>){
            next unless /^#DEFINE\s+<(\w+)>\s+(.*)/;
            $defines{$1} = $2;
        }
        for (values %defines) {
            1 while s/<(\w+)>/$defines{$1}/;
        }
        return \%defines;
    }

    my $opts = parse_defines('defs.txt');

    my $file = $opts->{FILE};
    print "$file\n";