open file in gvim's tab

v.pl

#!/usr/bin/perl

use strict;
use warnings;

my $editor = "gvim --remote-tab";
my $linenum_param = "+";
my $linenum_separ = q{ : };
my $command;

if (@ARGV == 1 && $ARGV[0] =~ m{ (.*) $linenum_separ (.*) }xms) {
    my $filename = $1;
    my $line_number = $2;
    $command =  $editor . " "
                . $linenum_param . $line_number . " "
                . $filename;
}
else {
    $command = "$editor @ARGV";
}

#$command .= " 2>&1 > /dev/null";
print $command, "\n";
exec($command);