Select Code to Download

#! /usr/bin/perl
use warnings;
...
my $ygk = $y / $k;
my $zgk = $z / $k;
print "$xgk $ygk $zgk \n";