159
159
<B>#! /usr/bin/perl -w</B><BR>
160
160
# prof2sites.pl: converts the output of d.profile to a site_list
162
162
<B>my</B> (<EM>$dist</EM>, <EM>$elev</EM>, <EM>$east</EM>, <EM>$north</EM>);
164
164
<B>while</B> (<<B>STDIN</B>>)<BR>
166
166
<B>if</B> (m/^#/)<BR>