gistfile1.txt

#!/usr/bin/env perl                                                                                                                                                                                                                     

use File::Temp;

use Getopt::Long;
my($project, $component);
my $type = "Bug";
GetOptions(
    'project=s' => \$project,
    'component=s' => \$component,
    'type=s' => \$type,

);

my ($fh, $fn) = File::Temp::tempfile( "jiraXXXXXX", SUFFIX => ".yml");

print $fh <<EOM;
summary:                                                                                                                                                                                                                                
--- | # description on next line                                                                                                                                                                                                        
                                                                                                                                                                                                                                        
---                                                                                                                                                                                                                                     
project: $project                                                                                                                                                                                                                       
component: $component                                                                                                                                                                                                                   
issuetype: $type                                                                                                                                                                                                                        
assignee: $ENV{USER}                                                                                                                                                                                                                    
reporter: $ENV{USER}                                                                                                                                                                                                                    
EOM                                                                                                                                                                                                                                     

close $fh;

print "fn: $fn\n";