#!/usr/bin/perl

use strict;

foreach my $fil ( glob("*.data")) {
  my $ped = $fil;
  $ped =~ s/data$/ped/;
  system("ln -s $fil $ped");
  print "ln -s $fil $ped\n";
}
