Select Code to Download

#! /usr/bin/perl
use strict;
...
    }
}

k2 (@ARGV);

...
$_[0]>=0&&$_[0]<$_[1]&&s>([\d.]+)>
$1<$_[1]?$1+$_[2]:''>e){print+qq
+$_\n+};!$_||die ("Bad Params!")}