#!/usr/bin/perl
open(FH,"<mygps.dat"); #
while(<FH>)
{
  $line = $_; # $_ is the line
  #print $line;
  chop($line);
 @fields=split(/ /,$line);
  $fields[0]=$fields[0] * 512./60. + 595; #longitude
  $fields[1]=$fields[1] * 664./60. + 156; #latitude
  $myout = $fields[0]." ".$fields[1]."\n";
  print($myout);
}