Select Code to Download

sub call_variables 
{
    my $spec_vars = param('spec_vars');
    return (split /~/, $spec_vars)[0,1,2,3,4];
}