Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #! /usr/bin/env perl
- use feature qw(say);
- use strict;
- use warnings;
- my $output = `perl user.pl`;
- if ( $output =~ /Access Token: (.*)$/ ) {
- say $1;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement