#!/usr/bin/perl

use warnings;
use strict;

open (my $fh,"<","/proc/$$/cmdline") or die "Can't access proc file: $!";
my $line = (<$fh>);
close $fh or die "Can't close proc file: $!";

my @cmdline = split("\0",$line);

print join(" ",@cmdline)."\n";